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"A Contribution to the Development of ALGOL" by Niklaus Wirth and 
C. A. R. Hoare-^ was the basis for a compiler developed for the IBM 560 at 
Stanford University. This report is a description of the implemented 
language, ALGOL W. Historical background and the goals of the language 
may be foimd in the Wirth and Hoare paper. 

HISTORICAL NOTE 

This document is a major revision of and supersedes CS 110. The revisions 
were made in order to document a significantly improved version of the ALGOL W 
compiler. This version was known as X ALGOL W during the spring and summer 
of 1971' In addition to new debugging facilities documented under Compiler 
Options J the new version of the compiler has slightly more meaningful error 
messages documented in the completely re-written Error Messages section. 
Various minor corrections and changes have been made throughout the book, 
and some examples have been added. There is now an index, and a complete 
list of all words the compiler treats in any special way. Below is a quick 
summary of the changes in the ALGOL W language:" 

1. Reserved words: 

There are three new reserved words: algol, assert , and fort ran . 

2. New statements and functions: 

There is now an ASSERT statement (cf. Section 7.5a). 

Procedures can be declared with empty bodies that instead specify that 
a linkage to an externally-compiled algol or fortran procedure is needed 
(cf. Section 5»5) • A new standard function, TRACE, is added as part 
of the debugging facility (cf. Section 7.8.6). 
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Wii-th, Niklaus and Hoare, C. A. R., "A Contribution to the Development 
of ALGOL", Coram. ACM 9, 6 (June I966), pp. l^-15-i^■51. 



5. Conversions: 

Conversions from integer to real now go to long real . 
k. String comparisons: 

In comparing strings of different lengths, the shorter is extended 

with "blanks before the comparison is done. 

5. String assignments: 

String assignments are done in a single action, instead of character 
hy-character left -to-right. This prevents erroneous answers when 
assigning a string to a substring of itself. 

6. Deleted facility: 

The standard functions COMPLEXSQRT and LONGCOMELEXSQRT are no 
longer in the ALGOL W library, (cf . Deck Setup and Compiler 
Options , Section 3, for use of the Fortran library.) 

The present author wishes to thank all those who have gone before him, 
especially Ed Satterthwaite for his extraordinary care in building the 
debugging facilities. 
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1. TERMINOLOGy 



1. TERMiNOLOGY, NOTATION AND BASIC DEFINITIONS 

The Reference Language is a phrase structure language, defined by 
a formal metalanguage. This metalanguage makes use of the notation and 
definitions explained below. The structure of the language ALGOL W 
is determined by: 

(1) V, the set of basic constituents of the language, 

(2) U, the set of syntactic entities, and 

(3) ^f the set of syntactic rules, or productions. 

1.1. Notation 

A syntactic entity is denoted by its name (a sequence of letters) 
enclosed in the brackets < and >. A syntactic rule has the form 

where <A> is a member of U, x is any possible sequence of basic con- 
stituents and syntactic entities, simply to be called a "sequence". 

The form 

<A> ::= y I y I ... I z 

is used as an abbreviation for the set of syntactic rules 

<A> : : = X 
<A> ::= y 



<A> ::= z 

1.2. Definitions 



1. A sequence x is said to directly produce a sequence y if and 



TERMINOLOGY 



only if there exist (possibly empty) sequences u and w, so that 
either (i) for some <A> in U, x = u<A>w, y = uvw, and <A> :;= 
V is a rule in P; or (ii) x = uw, y = uvw- and v is a "comment" 
(see below) . 

2. A sequence x is said to produce a sequence y if and only if 
there exists an ordered set of sequences s[0], s[l], . .'. , s(n], 
so that X = s[0], s[n] = y, and s[i-l] directly produces s[i] for 
all i - 1 , ... , n . 

5. A sequence x is said to be an ALGOL W program if and only if 
its constituents are members of the set Y , and x can be produced 
from the syntactic entity <prograBi>. 

The sets V and U are defined through enumeration of their members 
in Section 2 of this Report (cf. also k.k.). The syntactic rules are 
given throughout the sequel of the Report. To provide explanations 
for the meaning of ALGOL W programs, the letter sequences denoting 
syntactic entities have been chosen to be English words describing 
approximately the nature of that syntactic entity or construct. Where 
words which have appeared in this majiner are used elsewhere in the 
text, they refer to the corresponding syntactic definition. Along 
with these letter sequences the symbol T may occur. It is understood 
that this symbol must be replaced by any one of a finite set of English 
words (or word pairs). Unless otherwise specified in the particular 
section, all occurrences of the symbol T within one syntactic rule 
must be replaced consistently, and the replacing words are 



1. termhtology 



integer logical 

real bit 

long real string 

complex reference 
long complex 

For example, the production 

<r term> ;:= <r factor> (cf. 6.3.1.) 



corresponds to 

<int6iger term> 
<real terTn> 
<long real term> 
<complex term> 
<l.ong complex term> 

The production 



= <integer factor> 

= <real factor> 

= <long real factor> 

= <complex fact or > 

= <long complex factor> 



<Tq primary> : := long <7 primary> 



(cf. 6.5.1. and 
table for long 
6.5.2.7.) 



corresponds to 

<long real primary> 
<long real primary> 
<Iong complex primary> 



= long < real primary> 
= long < integer prijnary> 
= long <complex primary> 



It is recognized that typographical entities exist of lower order 
than basic symbols, called characters. The accepted characters are 
those of the IBM System 560 EBCDIC code. 

The symbol comment followed by any sequence of characters not 
containing semicolons, followed by a semicolon, is ca]JLed a comment. 
A coriiment has no effect on the meaning of a program, and is ignored 
during execution of the program. An identifier (cf» 5.1.) Immediately 
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following the basic symbol end is also regarded as a comment. 

The execution of a program can be considered as a sequence of 
units of action. The sequence of these units of action is defined as 
the evaluation of expressions and the execution of statements as 
denoted by the program. In the definition of the implemented language 
the evaluation or execution of certain constructs is either (l) defined 
by System 5^0 operations, e.g., real arithmetic, or (2) left undefined, 
e.g., the order of evaluation of arithmetic primaries in expressions, 
or (5) said to be not valid or not defined. 

2. SETS OF B/VSIC SYMBOLS AND SYNTACTIC ENTITIES 

2,1, Basic Symbols 

a|b|c |d|e|f|g|h|i|j|k|l|m|n|o|p| 
q|r|s|t1u|v|w|x|y|z| 

I 1 I 2 I 5 I ^ I 5 I 6 I 7 I 8 I 9 I 

true I false | " | null | # | » | 

integer | real | complex | logical | bits | string | 

reference | long real | long complex | array | 

procedure | record | 

, I ; I : I . I ( I ) I begin | end | if | then | else | 

case |of|+|-|*|/|**| div 1 rm | shr | shl | is | 

abs I long | short | and |or|-i| I I = |-i=l<l 

<= I >l >= I :: I 

:= I goto I go to I for | step | until | do | while | 

comment | value | result | assert | algol | fortran 

All underlined words, which we call "reserved words", are represented 

by the same words in capital letters in an actual program, with no 

intervening blanks. 
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Adjacent reserved words, identifiers (cf. 3.1.) and numbers must include 
no blanks and must be separated by at least one blank space. Otherwise 
blanks have no meaning and can be used freely to improve the read- 
ability of the program. 



2.2. Syntactic Entities 

(with corresponding section numbers) 

<actual parameter list> 

<actual parameter> 

<bit factor> 

<bit primary> 

<bit secondary> 

<bit sequence> 

<bit terTn> 

<block body> 

<block head> 

<block> 

<bound pair list> 

<bound pair> 

<case clause> 

<case statement> 

<control identifier> 

<declaration> 

<digit> 

<dimension specification> 

<empty> 

<eqaality operator> 

<expression list> 

<field list> 

<for clause> 

<for list> 

<formal array parameter> 

<formal parameter list> 

<formal parameter segment> 



7.3 


<formal type> 


5.3 


7.3 


<go to statement> 


7>h 


6.5 


<hex digit> 


^.3 


6.5 


<identifier list> 


3.1 


6.5 


<identifier> 


3.1 


i^.3 


<if clause> 


6 


6.5 


<if statement> 


7.5 


7.1 


<imaginary number> 


k.l 


7.1 


<increment> 


7.7 


7.1 


<initial value> 


7.7 


5.2 


<iterative statement> 


7.7 


5.2 


<label definition> 


7.1 


6 


<label identifier> 


3.1 


7.6 


<letter> 


3.1 


3.1 


<limit> 


7.7 


5 


<logical element> 


6,k 


3.1 


<logical factor> 


e.h 


5.3 


<logical primary> 


e.h 


7 


<logical term> 


e.h 


6.i+ 


<logical value> 


k.2 


6.7 


<lower bound> 


5.2 


5.^ 


<null reference> 


J+.5 


7.7 


<procedure declaration> 


5.3 


7.7 


<procedure heading> 


5.3 


5.3 


<procedure identifier> 


3.1 


5.3 
5.3 


<prooedure statement> 


7.3 


<prograin> 


7 
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<proper procedure body> 5*3 

<proper procedure 

declaratior> 50 

<record class declaratioE> 5 '^ 

<record class identifier> J>>1 

<record class identifier 

iist> 5.1 

<record designator> 6.? 

<relatioin> 6.k 

<rel8tional operator> 6.k 

<scale factor> ^.1 

<sigr> h .1 

<simple bit expressior> 6.5 

<simple logical expressior]> 6.h 

<simple reference 

expressiori> 6-7 

<simple statement> 7 

<simple string expressiori> 6,6 

<simple T expressiorC> 6.5 

<simple T variable> 6.1 

<simple type> 5«1 

<simple variable 

declpjratior> 5 -l 

<stateinent list> 7.6 

<statement> 7 

<string primary> 6.6 

<strin^ k A 

Oubarray designator list> 7*3 

<subscript> 6.1 

3 . IDENTIFIERS 



<sub8cript liBt> 6.1 

<substring designator> 6.6 

<r array aeclaration> 5.2 

<T array deslgnatorp* 6.1 

<T array identifier> ^.1 

<T assignment statements 1.2 

<7 expression list>' 6 

<T express ior> 6 

<T factor> 6.3 

<T field designator> 6.1 

<J field identifiei> 3.1 

<T function designatoi> 6.2 

<T function identifiei> 3.I 

<T function procedure body> 5-3 

<T function procedure 

declaratioE> 5.3 

<T left part> 7-2 

<T n\3mber> k .1 

<T primarj/> 6.3 

<J subarray designatoi> 7.3 

<r tern^ 6.3 

<r variablp> 6.1 

<T variable identifiei> 3-1 

<unscaled rea!l> k- .1 

<upper bound> 5*2 

<while clause 7*7 



3.1. Syntax 

<identifie]:> ::= <lettei> | <identifiei> <iettei> | <identifiex!> <digit> 

<identif ier> _ 
<T variable identifier> ::= <identifier> 
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<T array identifier> ::= <identifier> 

<procedure identifier> ::= <identifier> 

<T function identifier> ::- <identifier> 

<record class identifier> ::= <identifier> 

<T field identifier> :i= <identifier> 

<label identifier> ::= <identifiei> 

<control identifier> ::-- <identifier'> 

<letter> ::= a|b|c|d|e|f|g|h|i|j|k|l|m| 

n|o|p|q|r|s|t|u|v|w|x|y|z 

<digit> ;:^ I 1 I 2 I 3 I 4 I 5 I 6 I 7 I 8 I 9 

<lderitifier li.st> ::= <identifier> | <identifier list> , <identifier> 

3 . t-^ . Semantics 

Variables, arrays, procedures, record classes and record fields 

are said to be quantities . Identifiers serve to identify quantities, 

or they stand as labels, formal parameters or control identifiers. 

Identifiers have no inherent meaning, and can be chosen freely in the 

reference language. In an actual program a reserved word cannot be 

used ar> an identifier. 

Every identifier used in a program must be defined. This is 

achieved through 

(a) a ae^claration (cf. Section 5)^ if the identifier identifies a 
quantity. It is then said to denote that quantity and to be a 
T variable identifier, T array identifier, T procedure identifier, 
T function identifier, record class identifier or T field iden- 
tifier, wliere the symbol T stands for the appropriate word re- 
flecting the type of the declared quantity; 

vb) a label definition (cf. T-l-"*^ if the identifier stands as a 
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label. It is then said to be a label identifier; 

(c) its occurrence in a formal parameter list (cf. 5.3»)' I^ is th^n 
said to be a formal parameter; 

(d) its occurrence following the symbol for in a for clause (cf. 7.7.). 
It is then .said to be a control identifier; 

(e) its implicit declaration in the language. Standard procedui-es, 
standard functions, and predefined variables (cf. 7.8 and 8) may be 
considered to be declared in a block containing the program. 

The recognition of the definition of a given identifier is 
determined by the following rules: 

Step 1. If the identifier is defined by a declaration of a 
quantity or by its standing as a label within the smallest block 
(cf. 7.1.) embracing a given occtirrence of that identifier, then 
it denotes that quantity or label. A statement following a 
procedure heading (cf. 5«5«) or a for clause (cf. 7.70 is considered 
to be a block. 

Step 2. Otherwise, if that block is a procedure body and if the 
given identifier is identical with a formal parameter in the asso- 
ciated procedure heading, then it stands as that fonnal parameter. 

Step 3* Otherwise, if that block is preceded by a for clause 
and the identifier is identical to the control identifier of 
that for clause, then it stands as that control identifier. 

Otherwise, these rules are applied considering the smallest 
block embracing the block which has previously been considered. 
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h. VALUES and TYPES 

If either step 1 or step 2 could lead to more than one definition, 
then the identification is undefined. 

The scope of a quantity, a label, a formal parameter, or a 
control identifier is the set of statements in which occurrences of an 
identifier may refer by the above rules to the definition of that 
quantity, label, formal parameter or control identifier. 

5. 5' Examples 

I 

PERSON 

ELDERS IBLING 
XI5, X20, X25 

k. VALUES AM) TYPES 

Constants and variables (cf. 6.1.) are said to possess a value. 
Trie A/alue of a constant is determined by the denotation of the constant. 
In the language, all constants (except references) have a 
reference denotation (cf. U.l. -if.U.). The value of a variable is the 
one most recently assigned to that variable. A value is (recursively) 
defined as either a simple value or a structured value (an ordered set 
of one or more values). Every value is said to be of a certain type. 
The following types of simple values are distinguished: 

integer : the value is a 52 bit integer, 

real: the -value is a 32 bit floating point number, 

long real: the value is a 6k bit floating point number, 

complex : the value is a complex number composed of two 
numbers of type real, 
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long complex : the value is a complex number composed of two 
long real numbers, 

logical : the value is a logical value, 

bits : the value is a linear sequence of 32 bits, 

string ; the value is a linear sequence of at most 256 
characters, 

reference : the value is a reference to a record. 

The following types of structured values are distinguished: 

array ; the value is an ordered set of values, all of 
identical simple type, 

record; the value is an ordered set of simple values. 

/ procedure may yield a value, in which case it is said to be a 
function procedure, or it may not yield a value, in which case it is 
called a proper procedure. The value of a function procedure is 
defined as the value which results from the execution of the procedure 
body (cf. 6.2.2.). 

Subsequently, the reference denotation of constants is defined. 
The reference denotation of any constant consists of a sequence of 
characters. This, however, does not imply that the value of the 
denoted constant is a sequence of characters, nor that it has the 
properties of a sequence of characters, except, of course, in the case 
of strings. 

U.l. Numbers 

i^.1,1. Syntax 

<long complex number> :;= <fcomplex number>L 

< complex number> ::= <imaginary number> 

< imaginary number> : ; = <real n\imber>I | <integer number>I 
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h. VALUES and TYPES 

<Long real n-uinber> ::= <real n'uinber>L | <Lnteger n-uinber>L 
<real nixmber> ::= <lmscaled real> | <Unscaled real> <scale factor> 
<integer n-umber> <scale factor> j <scale factor> 
<uinscaled real> ::= <integer number> • <Lnteger m;imber> | 

•<integer m;iinber> | <integer n'umber> • 
<scale factor> ::= *<integer n-umber> | '<sign> <integer niim.ber> 
<integer n-uinber> ::= <digit> | <integer niiniber> <digit> 
<iSign> ; := + | - 

(Note: a long complex constant may have the I and L in either order 

in a program, but they must be in the order XL on data cards.) 

U.1.2. Semantics 

Numbers are interpreted according to the conventional decimal 
notation. A scale factor denotes an integral power of 10 which is 
multiplied by the unsealed real or integer number preceding it. Each 
number has a uniquely defined type. (Note that all <T number>s are 
unsigned.) 

ii-.l.J. Examples 



1 


.5 


11 


0100 


1»5 


0.671 


^.lhl6 


6.02l4-86'+25 


IIL 



2.7l828l828ii-590lf525556028TL 2.3' -6 

U.2. Logical Values 

U.2.1. Syntax 

<Logical value> ::= true | false 

h-,J). Bit Sequences 

ii-.5.1. Syntax 
<bit sequence> ::= # <hex digit> | <bit sequence> <liex digit> 
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vrujUJ:iiw> cuxvx aa.cuilj 



<hex digit> ::= I 1 I 2 I 5 I i^ I 5 I 6 I 7 I 8 I 9 I A I B I 
C I D I E I F 

Note that 2 | ... | F corresponds to, 2 | ••• \ 15-, q • 

it. 5. 2. Semantics 

The n-umber of bits in a bit sequence is 52 or 8 hex digits. The 
bit sequence is always represented by a 52 bit word with the specified 
bit sequence right Justified in the word and zeros filled in on the lelM: . 

i}-.5.5- Exanrples 

ikF = 0000 0000 0000 0000 0000 0000 0100 1111 
#9 = 0000 0000 0000 0000 0000 0000 0000 1001 

h.k. Strings 

ii-.i^-.l. Syntax 

<istring> ::= "<sequence of character s>" 

k.k»2. Semantics 

Strings consist of any sequence of (at most 256) characters 
accepted by the System 36o enclosed by ", the string quote. If the 
string quote appears in the sequence of characters it must be immediately 
follcwed by a second string quote which is then ignored. The number of 
characters in a string is said to be the length of the string. 

k.h.'^» Examples 

"JOM" 

MiiMM j^g ^j^g string of length 1 consisting of the string quote. 
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h .^ , References 

i^.'5).l. Syntax 

<nuil reference> ::s i^.i^lJL'l 

U.5.2. Semantic r, 

The reference value null faiis to designate a rfccord; if a refer- 
ence expression occurring in a field designator (cf. 6.1.) has this 
value, then the field designator is undefined. 

^ . DECl^ARATIONS 

Declarations serve to associate identifiers with the quantities 
used in the program, to attribute certain permanent properties to 
these quantities (e.p. type, structure), and to determine their scope. 
The quantities declared by declarations are simple variables, arrays, 
procedures and record classes. 

Upon exit from a block, all quantities declared or defined within 
that block lose their value and significance (cf. 7'1"2. and 'J.h.2.). 

Syntax; 

<rteclaratiori> :'^ <3imple variable declaration^ ( <7 ajrray 

declaration> | <procedure declaratior£> | 
<record class decJLaration> 

^ • -^ • Simple Vgiriable Declarations 

5 .1,1. Syntax 

<simple variable declaratiori:? i:- <simple typ^ <identifier list> 
<simple typ€> ::= integer | real | long real | complex | long 

complex I logical | bits | bits (^2) | 
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string I string (<integer number>) | reference 
(<record class identifier list>) 
<record class identifier list> ::=: <record class identifer> | 

<record class identifier list> , 
<record class identifier> 

5.1.2. Semantics 

Each identifier of the identifier list is associated with a 
variable which is declared to be of the indicated type. A variable is 
called a simple variable, if its value is simple (cf. Section h) . If 
a variable is declared to be of a certain type, then this implies that 
only values which are assignment compatible with this type (cf. 7.2.2.) 
can be assigned to it. It is understood that the value of a variable 
is equal to the value of the expression most recently assigned to it. 

A variable of type bits is always of length 32 whether or not 
the declaration specification is included. 

A variable of type string has a length equal to the unsigned 
integer in the declaration specification. If the simple type is 
given only as string , the length of the variable is I6 characters. 

A variable of type reference may refer only to records of the 
record classes whose identifiers appear in the record class ideriti- 
fier list of the reference declaration specification. 

5.1.3* Example s 

integer I, J, K^ M, N 
real X, Y, Z 
long complex C 
logical L 
bits G, H 



5. DECLAMTIONS 

string (10) S, T 

reference (PERSON) JACK, JILL 

5.2. Array Declarations 

5.2.1. Syntax 

<7 array declaration> ::= <:simple type> array <identifier list> 

(<bound pair list>) 
<bound pair list> ::= <bound pair> | <bound pair list>, <bo-und pair> 
<bound pair> : : = <l.ower bound> : : <lipper bo-und> 
<lower ■bGund> ::= <integer expression> 
<upper 'bound> ::= <integer expression> 

5.2.2. Semantics 

Each identifier of the identifier list of an array declaration is 
associated with a variable which is declared to be of type array . A 
variable of type array is an ordered set of variables whose type is the 
simple type preceding the symbol array . The dimension of the array is 
the number of entries in the bound pair list . 

Every element of an array is identified by a list of indices. The 
indices are the integers between and including the values of the lower 
bound and the upper bound. Every expression in the bound pair list is 
evaluated exactly once upon entiy to the block in which the declaration 
occurs. The bound pair expressions can depend only on variables and 
procedures global to the block in which the declaration occurs . In order 
to be valid, for every bound pair, the value of the upper bound must not 
be less than the value of the lower bound. 

5.2.5. Examples 

integer array H(l: :100) 
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real array A, B(l: :M, 1::N) 

string (12) array STREET, TOWN, CITY (J::K+ 1) 



5.5« Procedure Declarations 
5.5»1« Syntax 

<:;procediire declaration> ::= <proper procedure declaration> | 

<T function proced-ure declaration> 
<proper procedure declaration> ::= procedure <procedure heading>; 

<proper procedure body> 
<T function procedure declaration> ::= <sim,ple type> procedure 

<procedure heading>; 
<T function procedure body> 
<$)roper procedure body> ::= <Statement> ] <external procedure> 
<T function procedure body> : := <T expression> | <block body> 

<T e3cpression> end [ <external procedure> 
<^rocedure heading> ::= <identifier> | <identifier> (<formal 

parameter lis'*b>) 
<fonnal parameter list> ::= <formal parameter seginent> | 

<formal parameter list> ; <formal 
parameter segra.ent> 
<formal parameter segment > ::= <fonnal type> <identifier list> | 

<formal array parameter> 
<formal type> ::= <simple type> | <simple type> value | <Simple 
type> result | <simple type> value result | 
<Simple type> procedure | procedure 
<formal array parameter > ::= <Simple type> array <Ldentifier 

list> (<dimension specification>) 
<dimension specification> ::= * | O-imension specif ication> , ^ 
<extemal procedure> ::= fort ran <istring> j alg^ol <string> 

5.3.2. Semantics 

A procediire declaration associates the procedure body with the 
identifier immediately following the symbol procedure . The principal 
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part of the procedure declaration is the procedure body. Other parts 
of the block in whose heading the procedure is declared can then cause 
this procedure body to be executed or evaluated. A proper procedure 
is activated by a procedure statement (cf. TO*); a function procedure 
by a function designator (cf. 6.2.). Associated with the procedure 
body is a heading containing the procedure identifier and possibly a 
list of formal parameters . 

5.3'2.1. Type specification of formal parameters. All formal para- 
meters of a formal parameter segment are of the same indicated type. 
The type must be such that the replacement of the formal parameter by 
the actual parameter of this specified type leads to correct ALGOL W 
expressions and statements (cf. 'J. '^.2.). 

5.3.2.2. The effect of the symbols value and result appearing in a 
formal type is explained by the following rule, which is applied to 
the procedure body before the procedure is invoked: 

(1) The procedure body is enclosed by the symbols begin and end 
if it is not already enclosed by these symbols; 

(2) For every formal parameter whose formal type contains the 
symbol value or result (or both), 

(a) a declaration followed by a semicolon is inserted after 
the first begin of the procedure body, with a simple 
type as indicated in the formal type, and with an iden- 
tifier different from any identifier valid at the place 
of the declaration. 

(b) throughout the procedure body, every occurrence of the 
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formal parameter identifier is replaced by the identifier 
defined in step 2a; 

(3) If the formal type contains the symbol value , an assignment 
statement (cf. 7«2.) followed by a semicolon is inserted 
after the declarations of the procedure body. Its left part 
contains the identifier defined in step 2a, and its expression 
consists of the formal parameter identifier. The symbol 
value is then deleted; 

{k) If t^e formal type contains the symbol result , an assignment 

statement preceded by a semicolon is inserted before the symbol 
end which terminates a proper procedure body. In the case 
of a function procedure, an assignment statement preceded 
by a semicolon is inserted after the final expression 
of the function procedure body. Its left part contains the 
formal parameter identifier, and its expression consists of 
the identifier defined in step 2a. The symbol result is 
then deleted. 

5.3»2.3» Specification of array dimensions. The nxomber of "*"' s 
appearing in the formal array specification is the dimension of the 
array parameter. 

5.3.2,i<-. External procedures. The body of a procedure can be just the construct 

fort ran <string> 
or the construct 

algol .<istring> . 
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In these cases, the actual body of the procedure is specified in a program 
that is compiled separately (externally). The <string> is a one-to-eight 
character external name that is used in the separate compilation. Thus, the 
example on page 27 could he used to refer to a FORTRAN program that begins : 

SUBROUTINE PLOTSB(N) ... 
(cf . Deck Setup and Compiler Options, Section 3 for details) . 

5.3 •3. Examples 

procedure INCREMENT; X := X+1 

real procedure MAX ( real value X, Y) ; 

if X < Y then Y else X 
procedure COPy ( real array U, V (^,^) ; integer value A, B) ; 
for I := 1 until A do 
for J := 1 until B do U(l, j) := V(l, j) 
real procedure HORNER (real array A (■^) ; integer value N; 
real value X) ; 
begin real S; S := 0; 

for I := until NdoS :=S-^X+ A(l) ; 
S 
end 
long real procedure SUM (integer K, N; long real X) ; 
begin long real Y; Y := 0; K := N; 
while K > = 1 do 
begin Y:=Y+X;K:=K-1 
end ; 
Y 
end 
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reference (PERSON) procedure YCUNGESTUITCLE ( reference (PERSON) R); 
begin reference (PERSON) P, M; 

P := YOUWGESTOFFSPRING (FATHER (FATHER (R))); 
while (P-1 = null ) and (-, MALE (P)) or 
(P = FATHER (R)) do 
P := ELDERSIBLING (P); 
M := yOUNGESTOFFSPRING (MOTHER (MOTHER (R))); 
while (M -, = null ) and (-, MALE (M) ) do 

M := ELDERSIBLING (M); 
if P = null then M else 
if M = null then P else 
if AGE(P) < AGE(M) then P else M 
end 

procedure ELOTSUBROUTINE ( integer value l) ; fort ran "PLOTSB" 
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5.^. Record Class Declarations 
5.^.1. Syntax 

<record class declaration> ::= record <identifier> (<field list>) 
<field list> ::= <simple variable declaration> | <field list> ; 
<simpie variable declaration> 

5.^.2, Semantics 

A record class declaratipn serves to define the structural pro- 
perties of records belonging to the class. The principal constituent 
of a record class declaration is a sequence of simple variable declar- 
ations which define the fields and their simple types for the records 
of this class and associate identifiers -with the individual fields. 
A record class identifier can be used in a record designator (cf. 6.7.) 
to construct a new record of the given class. 

5.^.5. Examples 

record NODE ( reference (NODE) LEFT, RIGHT) 
record PERSON ( string MM; integer AGE; logical MALE; 
reference (PERSON) FATHER, MOTHER, YOUNGESTOFFSPRING, 
ELDERSIBLING) 

6. EXPRESSIONS 

Expressions are rules which specify how new values are computed 
from existing ones. These new values are obtained by performing the 
operations indicated by the operators on the values of the operands. 
The operands are either constants, variables or function designators, 
or other expressions, enclosed by parentheses if necessary. The evalu- 
ation of operands other than constants may involve smaller units of 
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action such as the evaluation of other expressions or the execution of 

statements. The value of an expression between parentheses is obtained 

by evaluating that expression. If an operator has two operands, then 

these operands may be evaluated in any order with the exception of the 

logical operators discussed in 6. if. 2. 2. Several simple types of 

expressions are distinguished. Their structure is defined by the following 

mles, in which the symbol T has to be replaced consistently as described 

in Section 1, and where the triplets J , 7^, 7^ have to be either all 

three replaced by the same one of the words 

logical 
bit 

string 
reference 

or by any combination of words as indicated by the following table, 

which yields J given T-, and Tr) ' 



integer real complex 




integer 

real 

ccmplex 



integer real complex 
real real complex 
complex complex complex 



T has the quality "long" if either both T and Tr:^ have that 
quality, or if one has that quality and the other is "integer". 

Syntax: 

<T expression> : := <simple T expression> | <case clause> 

(<T expression list>) 
<T^ expression> : := <Lf clause> <7 expression> else 

<Tp expression> 
<T expression list> ::= <T expression> 

<T(^ expression list> ::= <Tn expression list> , <Tp expression> 
<if clause> ::= if <logical expression> then 
<case clause> ::= case <lnteger expression> of 
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The construction 

<if clause> <T^ expression> else <T^ express ion> 
causes the selection and evaluation of an expression on the basis of 
the current value of the logical expression contained in the if cla.use. 
If this value is true , the expression following the if clause is selected; 
if the value is false , the expression following else is selected. If 
T-, and Tp ^^^ simple type string , the shorter expression will be padded 
on the right with blanks to make it the length of the longer one. The 
const iruction 

<case clause> (<T expression list>) 
causes the selection of the expression whose ordinal number in the 
expression list is equal to the current value of the integer expression 
contained in the case clause. In order that the case expression be 
defined, the current value of this expression must be the ordinal number 
of some expression in the expression list. If T is simple type string , 
the string expressions will be padded on the right with blanks to make 
all alternatives the length of the longest one. 

Examples of expressions 

X -I A-^B COLUMN rCTi 5 (X+Y)-^5 long abs BALANCE 

if X=5 then y+37 else Z-^2.1 

case I of {3'lh, 2.78, UI18.9) 

case DEC ODE (C) -128 of ("A", "B", "C", "D", "E", "F") 

6.1. ' Variables 



6.1.1. Syntax 

<simple 7 variable> ::= <T variable identifier> | <T field designator> 

<T array designator> 
<Tvariable> ::= <simple T variable> 
<string variable> : := <substring designator> 

<T field designator> ::= <T field identifier> (<reference expression>) 
<T array designator> ::= <T array identifier> (<subscript list>) 
<subscript list> ::= <subscript> | <subscript list> , <subscript> 
<subscript> : := <integer expression> 
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6.1.2. Semantics 

An array designator denotes the variable whose indices are the 
current values of the expressions in the subscript list. The value of 
each subscript must lie within the declared bounds for that subscript 
position. 

A field designator designates a field in the record referred to 
by its reference expression. The simple type of the field designator 
is defined by the declaration of that field identifier in the record 
class designated by the reference expression of the field designator 
(cf. 5.^.). 

6.1.3. Examples 

X A(I) M(I+J, I-J) 

FATHER (JACK) MOTHER ( FATHER ( JILL) ) 

6.2. Function Designators 

6.2.1. Syntax 

<T function designator> ::= <T function identifier> | <? function 

identifier> (<}actual parameter list>) 

6.2.2. Semantics 

A function designator defines a value which can be obtained by a 
process performed in the following steps: 

Step 1. A copy is made of the body of the function procedure 
whose procedure identifier is given by the function designator 
and of the actual pa-rameters of the latter. 

Steps 2, 3^ ^. As specified in 7.5»2.. 
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Step 5. The copy of the function procedure body, modified as indicated 
in 5teps 2-h, is executed. Execution of the expression which constitutes 
cr is part of the modified procedure body consists of evaluation of that 
expression, and the resulting value is the value of the function desig- 
nator. The simple type of the function designator is the simple type 
in the corresponding function procedure declaration. 

6.2.3. Examples 

MAX (X ^^ 2, Y *-^ 2) 

SUM (I, 100, H(l)) 

SUM (I, M, SUM (J, N, A(I,J))) 

YOUNGESTUNCLE (JILL) 

SUM (I, 10, X(l) ^ Y(I)) 

HORNER (X, 10, 2.7) 

6.3. Arithmetic Expressions 

6.3.1, Syntax 

In any of the following rules, every occurrence of the symbol T 

must be systematically replaced by one of the following words (or 

word pairs) ; 

int-eger 
real 

long real 
complex 
long complex 

The rules governing the replacement of the symbols 3" T and T are 

given in 6.3.2. 

<simple ^ expression> ::= <Tterm> | + < T terin> j - <T term> 
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<sljnple T expression> ::= Oimple 7 expression> + <T2term> | 

<sinrple T^ expression> - <T2terrn> 



<Tterm> 

<Tp^ term> 



<Tp^term> 



= <T fact or > 

: = < Tn t erm> * < Tp f act or> 



: = < T-, t emi> I <'^ ,^ fact or > 
<integer term> ::= <integer term> div <integer factor> | 

<integer term> rem <integer factor> 
<T^factor> ::= <TQprimary> | <T,factor>-^ <integer primary> 



<T primary> 

< 7r. primary> 
<TQprimary> 

< T priiriary> 



= abs <T-, primary> 
~ ^o^g <Tn prdjnary> 
~ short <T-, primaiy> 
= <Tvariable> | <T function designator> | 
(<T expression>) j <Tn-uinber> 
<integer priraary> : := <control identifier> 



6.5.2. Semantics 

An arithmetic expression is a rule for computing a number. 

According to its simple type it is called an integer expression, 
real expression, long real expression, complex expression, or long 
complex expression. 

6.3.2.1. The operators +, -, ■><■, and / have the conventional meanings 
of addition, subtraction, multiplication and division. In the relevant 
syntactic rules of 6.5 -l- the symbols 7^, T-, and T^ have to be replaced 
by any combination of words according to the following table which 
indicates T- for any combination of T-, and T . (Also see page 15^.) 

6.5.2.2. The operator "-" standing as the first symbol of a simple 
expression denotes the monadic operation of sign inversion. The type of 
the result is the type of the operand. The operator "+" standing as the 
first symbol of a simple expression denotes the monadic operation of 
identity. 
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6.5.2.5. The operator div is mathematically defined (for B / O) as 
A div B = SGN (Ax B) xD (abs A, abs B) (cf. 6.5.2.6.) 

A ajid B both must be integer expressions. 

For the pui^ose of the definition above, SGN and D mean 
integer procedure SGN (integer value A) ; 



if A < then -1 else 1 



integer procedure D (integer value A, B) ; 
if A < B then else D(A--B, B) + 1 

6.5.2.^4-. The operator rem (remainder) is mathematically defined as 
A rgn B = A - (A div B) x B 
A and B both must be integer expressions. 

6.5.2.5. The operator ^* denotes exponentiation of the first operand 
to the power of the second operand. In the relevant .syntactic rule of 
6.5.1. the symbols T^, f , and 7 are to be replaced by some combination 
of words from the table below. If the value of the exponent, N, is 
positive, then the first operand is multiplied by itself N times; if N 
is negative, the expression is evaluated as l/(first operand-^^(-N)) ; 

if N is zero, the result is always 1. If the first operand is zero and 
the second operand is negative, then division by zero will result. Note 
that -1-^-^N is parsed as -(l-><-^N) ; use (-l)-^-^N instead. To force something; 
like I^J (where I > and J >0) to be an integer, use TRUNCATE (I^^J) . 

6.5.2.6. The monadic operator abs yields the absolute value or modulus 
of the operand. In the relevant syntactic rule of 6. 5.1. the symbols T^ 
and T-, have to be replaced by the same types. 

6.5.2.7. Precision of arithmetic. If the result of an arithmetic 
operation is of simple type real , complex , long real , or long complex 
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then it is the mathematically understood result of the operation 
performed on operands which may deviate from actual operands. 

In the relevant syntactic rules of 6.5.1. the symbols 7. y . and 7 
must be replaced by any of the combinations of words (or word pairs) 
in the tables below. 

Operators + ] - 



^r^ 


integer 


real 


long real 


complex 


long complex 


integer 


integer 


real 


long real 


complex 


long complex 


real 


real 


real 


real 


complex 


complex 


long real 


long real 


real 


long real 


complex 


long complex 


complex 


complex 


complex 


complex 


complex 


complex 


long complex 


long ccanplex 


complex 


long complex 


complex 


long complex 




integer 

real 

complex 



integer 



real 



complex 



integer long real long complex 
long real long real long complex 
long complex long complex long complex 



T-, or Tp having the quality "long" does not affect the type of the result 



Operator / 



?r^ 


integer 


real 


long real 


complex 


long complex 


integer 


long real 


real 


long real 


complex 


long complex 


real 


real 


real 


real 


complex 


complex 


long real 


long real 


real 


long real 


complex 


long complex 


canplex 


complex 


complex 


complex 


complex 


complex 


long complex 


long complex 


complex 


long complex 


complex 


long complex 
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Table of values for div and rem operators 



I 


J 


I div J 


I rem j 


10 


2 


5 





n 


2 


5 


1 


10 


-2 


-5 





11 


-2 


-5 


1 


-10 


2 


-5 





-11 


2 


-5 


-1 


-10 


-2 


5 





-11 


-2 


5 


-1 



Operator -^^-^ 




integer 
real 

long real 
complex 
long complex 



integer 



long real 
long real 
long real 
long complex 
long complex 



Operator long 



^0 


^1 


long real 


integer 


long real 


real 


long real 


long real 


long complex 


complex 


long complex 


long complex 



Operator short 



^0 


^1 


real 


integer 


real 


real 


real 


long real 


complex 


complex 


complex 


long complex 



6.5.3. Examples 
C + A(I) ^ B(I) 
EXP (-X/(2 ^ SIGMA)) / SQKT (2 * SIGMA) 
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6,h. Logical Expressions 

6.4.1. Syntax 

In the following rules for <5relation> the symbols 7^ and T, must 

either be identically replaxjed by any one of the following words: 

bit 

string 

reference 

or by emy of the vords from: 

complex 
long complex 
real 

long real 
integer 

and the symbols T or T miist be identically replaced by string or 

must be replaced by any of real; long real, integer. 

<simple logicfiLL expressioit> ::= <logical element> ] <relatior> 
<logical element> ::= <logical teni> | <logical element> or 

<logical teriri> 
<logical temC> ::= <logiced factoi> | <logical tern> and 

<logical feLctor> 
<logical factoi> ::= <logical primary> | -i <logical primary 
<logical prijnary> ::= <logical valu^ | <logical variable> | 

<logical function designatoi> | 
(<logical expressior>) 
<relatior> ::= <simple T expressiori> <equality operatoir> 
<simple T expressior> | <logical element> 
<equaxity opera-cor> <logical element> | 

<simple reference expressiori> is 

<record class identifier> | 

<simple T^ expression> <relational operator> 

<simple T^ expressioij> 
<relational operator> ::«<|<=|>n|> 
<equ8tlity operator> : :« = | -n = 
6.h.2, Semantics 

A logical expression is a rule for computing a logical value. 
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L-.U.2.1. The relational operators represent algebraic ordering for 
arithmetic arguments and EBCDIC ordering for string arguments. If two 
strings of unequal length are compared, the shorter string is first 
extended to the right with blaaks. The relational operators yield the 
logical value true if the relation is satisfied for the values of the 
two operands; false otherwise. Two references are equal if and only if 
they are both null or both refer to the same record. The operator is 
yields the logical value ti-ue if the reference expression designates a 
record of the indicated record class; false otherwise. The reference 
value null fails to designate a record of any record class. 

6.^.2.2. The operators — i (not), and , and or, operating on logical 

values, are defined by the following equivalences: 

-I X if X then false else true 
X and Y if X then Y else false 
X or Y _if X then tme else Y 

6.i^.3« Examples 

P or Q 

(X < Y) and (Y < Z) 
YOUNGESTOFFSPRING (JACK) -, = null 
FATHER (JILL) i_s PERSON 

6.5* Bit Expressions 
6.5. !• Syntax 

<simple bit expression> ::= <bit term> | <simple bit expression> 

or <bit term> 
<bit term> ::= <bit factor> | <bit, term> and <bit factor> 
<bit factor> : := <bit secondary> | — i <bit secondary> 
<bit secondary> ::= <bit primary> | <bit secondary> shl 

<integer primary> j <bit secondary> shr 
<integer priraary> 
<bit primary> ::= <bit sequence> | <bit variable> | <bit 

function designator> | (<bit expression>) 
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6.5.2. Semantics 

A bit expression is a rule for computing a bit sequence. 
The operators and , or , and -n produce a result of type bits , every 
bit being dependent on the corresponding bit(s) in the operand(s) as 

follows: 



X 


Y 


-1 X 


X 


and 


Y 


X 


or Y 








1 

















1 


1 











1 


1 

















1 


1 


1 







1 






1 



The operators shl and shr denote the shifting operation to the 
left and to the right respectively by the number of bit positions 
indicated by the absolute value of the integer primary. Vacated bit 
positions to the right or left respectively are assigned the bit 

value 0. 

6.5.3' Examples 

G and H or #58 

G and -1 (H or G) shr 8 

6.6. String Expressions 

6.6.1. Syntax 

<simple string expression> ::= <string primary> 

<string primary> ::= <string> | <string variable> | <string 

function designator> | (<string expression>) 
<sub string designator> ::-<simple string variable> 

(<integer expressiort>| <integer number>) 

(The I stands for the vertical bar character | .) 
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6.6.2. Semantics 

A string expression is a rule for computing a string (sequence of 
characters). 

6-6.2.1. A substring designator denotes a sequence of characters of 
the string designated by the string variable. The integer expression 
preceding the I selects the starting character of the sequence. The 
value of the expression indicates the position in the string variable. 
The value must be greater than or equal to and less than the declared 
length of the string variable. The first character of the string has 
position 0. The integer number following the % indicates the length 
of the selected sequence and is the length of the string expression. 
The sum of the integer expression and the integer number must be less 
than or equal to the declared length of the string variable. 

6.6.'^. Example 

string (10) S; 
S (^13) 
S fl+Jll) 

string (lO) array T (l: r.m,2: :n); 
T {k,6) (515) 

6 7 . Reference Expressions 
6.7.1. Syntax 
<simple reference expressiDn> : :;= <null reference> | <reference 

variable> | <reference function 
designator> | <record designator> 
(<reference expression>) 
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•Crecord designator> ::« <record class identifier> | <record 

class identifier> (<expression list>) 
<expression list> : := <r expression> | <expression list>, 

<r expression> 

6.7.2. Semantics 

A reference expression is a rule for computing a reference to a 
record. 

The value of a record designator is the reference to a newly- 
created record belonging to the designated record class. If the 
record designator contains an expression list, then the values of the 
expressions are assigned to the fields of the new record. The entries 
in the expression list are taken in the same order as the fields in 
the record class declaration, and the simple types of the expressions must 
be assignment compatible with the simple types of the record fields 
(cf. 7.2.2.). 

6.7.3. Example 

PERSON ("CAROL", 0, false , JACK, JILL, null , YOUNGESTOFFSPRING 

(jack)) 

6.8, Precedence of Operators 

The syntax of 6.3.I.J 6.J+.1., and 6. 5.1. implies the following 
hierarchy of operator precedences: 

long, short , abs 

shl, shr , ^^ 
—\ 

*> It div , rem, and 
+, -, or 
<, <=, =, _-,=, >=, >, is 
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Example 

A = B and C is equivalent to A = (B and C) 

7 . STATEMENTS 

A statement denotes a unit of action. By the execution of a 
statement is meant the performance of this unit of action, which may 
consist of smaller units of action such as the evaluation of expressions 
or the execution of other statements. 

Syntax: 

<program> ::= <Statement> . | 

<proper procedure declaration> . { 
<T function procedure declaration> . 
<statement> ::= <simple statement> | <iterative stateraent> | 

<:if statement> | <case statement> 
<simple statement> ::= <!block> j <T assignment statement> j 

<empty> | <^rocedure statement> | 
<;goto statement> 

(Note: the teraiinating period is optional.) 



7.1. Blocks 

7.1.1. Syntax 

<block> ::= <block body> <statement> end 

<block body> ::= <block head> | <block ■body> <statement>; 

<block body> <label definition> 
<block head> ::= begin j <block head> <declaration> ; 
<label definition> ::= <identifier> : 

7.1.2. Semantics 

Every block introduces a new level of nomenclature. This is 
realized by execution of the block in the following steps: 
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Step 1. If an identifier, say A, defined in the block head or 
in a label definition of the block body is already defined at 
the place from which the block is entered, then every occurrence 
of that identifier, A, within the block except for occurrence in 
array bound expressions is systematically replaced by another 
identifier, say APRIME, which is defined neither within the 
block nor at the place from which the block is entered. 

Step 2. If the declarations of the block contain array bound 
expressions, then these expressions are evaluated. 

Step 3. Execution of the statements contained in the block body 

begins with the execution of the first statement following the 

block head. 

After execution of the last statement of the block body (unless 
it is a goto statement) a block exit occurs, and the statement follow- 
ing the entire block is executed. 

7.1.3. Example 

begin real U; 

U := X; X := Y; Y := Z; Z := U 
end 

7.2. Assignment Statements 

7.2.1. Syntax 

In the following rules the symbols T^ and T must be replaced by 
words as indicated in Section 1, subject to the restriction that the 
type 7 is assignment compatible with the type T as defined in 7.2.2. 
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-^J assignment stateinent> ::= <T^ left part> <r^ expression> | 

<T left part> <f assignment 
statement> 

<T left part> ;:= <r varia'ble> : = 

7.2.2. Semantics 

The execution of a simple assignment statement 

<:!r^ assigrunent statement> ::= <T^ left part> <T-, expression> 

causes the assignment of the value of the expression to the variable. 

If a shorter string is to be assigned to a longer one^ the shorter 

string is first extended to the right with blanks until the lengths are 

equal. In a multiple assignment statement 

(<T assignment statement> ::= <T left part> <r-, assignment 

statement>) 

the assignments are perfonned from right to left. For each left part 

variable, the simple type of the expression or assignment variable immediately 

to the right must be assignment compatible with the simple type of that 

variable. 

A simple type T-, is said to be assigranent compatible with a simple 

type 7 if either 

(1) the two types are identical (except that if T and T are 
string , the length of the 7 variable must be greater than 

or equal to the length of the T expression or assignment), or 

(2) r is real or long real , and T is integer , real or long 
real or 

(3) T is complex or long complex , and 7 is integer , real , 
long real , complex or long complex . 

In the case of a reference, the reference to be assigned must refer 
to a record of one of the classes specified by the record class identifiers 
aGsociated with the reference variable in its declaration. 
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7.2.5» Examples 

Z :== AGE(JACK) :« 28 
X := Y + abs Z 
C := I + X + C 
P := X -1 := Y 

7.5. Procedure Statements 

7.3.1. Syntax 

<procedure statement> ::= <procedure identifier> | <procedure 

identifier> (<actual parameter list>) 
<actual parameter list> ::s= <actual parameter> | <actual 

parameter list> , <actual parameter> 
<actual parameter> ::« <T expression> | <statement> | <f subarray 

designator> | <procedure identifier> | 
<J function identifier> 
<T subarray designator> ::- <r array identifier> | <X array 

identifier> (<subarray designator 
list>) 
<subarray designator list> ::= <subscript> | * | <subarray 

designator list>,<subscript> | 
<subarray designator list>,->^ 

7.3.2. Semantics 

The execution of a procedure statement is equivalent to a process 
perfonned in the following steps: 

Step 1. A copy is made of the body of the proper procedure whose 
procedure identifier is given by the procedure statement, and of 
the actual parameters of the latter. The procedure statement is 
replaced by the copy of the procedure body. 

Step 2. If the procedure body is a block, then a systematic 
change of identifiers in its copy is performed as specified by 
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step 1 of 7. .1.2. 

Step 5' The copies of the actual parameters are treated in an 
undefined order as follows: If the copy is an expression 
different from a variable, then it is enclosed by a pair of 
parentheses, or if it is a statement it is enclosed by the symbols 
begin and end . 

Step h. In the copy of the procedure body every occurrence of an 
identifier identifying a formal parameter is replaced by the copy 
of the corresponding actual parameter (cf. 7. 3. 2.1.). In order 
for the process to be defined, these replacements must lead to 
correct ALGOL W expressions and statements. 

Step 5. The copy of the procedure body, m.odified as indicated in 
steps 2-k, is executed. 

7.3.2.1. Actual -form.al correspondence. The correspondence between 
the actual parameters and the formal parameters is established as 
follows: The actual parameter list of the procedure statement (or 
of the function designator) must have the same number of entries as 
the form.al parameter list of the procedure declaration heading. The 
correspondence is obtained by taking the entries of these two lists 
in the same order. 

7.3.2.2. Formal specifications. If a formal parameter is specified by 
value, then the simple type of the actual parameter must be assignment 
compatible with the formal type. If it is specified as result , then the 
formal type must be assignment compatible with the simple type of the 
actual parameter. If it is specified by value result, both the above 
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conditions must be satisfied. In all other cases, the types must be 
identical. If an actual parameter is a statement, then the specification 
of its corresponding formal parameter must be p: ocedure . 

7.3.2.3. Subarray designators. A complete array may be passed to a 

procedure by specifying the name of the array if the number of subscripts 

of the actual parameter equals the number of subscripts of the 

corresponding formal parameter. If the actual array parameter has 

more subscripts than the corresponding formal parameter, enough subscripts 

must be specified by integer expressions so that the number of *'s appearing 

in the subarray designator equals the number of subscripts of the 

corresponding formal parsoneter. The subscript positions of the formal 

array designator are matched with the positions with *' s in the subarray 

designator in the order they appear. 

7.3»3* Examples 

INCREMENT 

COPY (A, B, M, N) 

INNERPRODUCT (IP, N, A(l,*), B(*,J)) 

7.14-. Goto Statments 

7.i4-.l. Syntax 

<goto statement> ::= goto <label identifier> | go to <label 

identifier> 

7.U.2. Semantics 

An identifier is called a label identifier If it stands as a 
label. 
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A goto statement determines that execution of the text be continued 
after the label definition of the label identifier. The identification 
of that label definition is accomplished in the following steps: 

Step 1. If some label definition within the most recently activated 
but not yet terminated block contains the label identifier, then 
this is the designated label definition. Otherwise, 

Step 2. The execution of that block is considered as terminated 
and Step 1 is taken as specified above. 

7.5- I£ Statements 

7.5.1. Syntax 

<if statement> ::= <if clause> <statement> | <if clause> 

<simple statement> else <statement> 
<if clause> ::= if <logical expression> then 

7.5«2. Semantics 

The execution of if statements causes certain statements to be 
executed or skipped depending on the values of specified logical 
expressions. An if statement of the form 

<if clause> <statement> 

is executed in the following steps: 

Step 1, The logical expression in the if clause is evaluated. 

Step 2. If the result of Step 1 is true , then the statement 
following the if clause is executed. Otherwise step 2 causes 
no action to be taken at all. 
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An if statement of the form 

<Lf clause> <simple statement> else <fetatement> 

is executed in the following steps: 

Step 1. The logical expression in the if clause is evaluated. 

Step 2. If the result of step 1 is true, then the simple statement 
following the if clause is executed. Otherwise the statement 
following else is executed. 

7.5.5. Examples 

if X = Y then goto L 

if X < Y then U := X else if Y < Z then U := Y else V := Z 



7 . 53' Assert Statements 
7.5a.l Syntax 

<assert statement> : := assert <Logical expression> 

7. 59'. 2 Semantics 

The assert statement is equivalent to the if statement: 
if -i(<logical express ion>) then endexecution 
where "endexecution" signifies a procedure which terminates the execution 
of an ALGOL W program. The assert statement can be used both as a 
debugging aid (asserting conditions which should be true, but may not 
be if a bug exists), and as a program documentation aid. 
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7.6. Case Statements 

7.6.1. Syntax 

<case statement> ::= <case clause> begin <i5tateraent list> end 
<stateraent list> ::= <statement> | <statement list> ; <stateinent> 
<case clause> ::= case <integer express ion> of 

7.6.2. Semantics 

The execution of a case statement proceeds in the following steps: 

Step 1. The expression of the case clause is evaluated. 

Step 2. The statement whose ordinal number in the statement list 

is equal to the value obtained in Step 1 is executed. In order 

that the case statement be defined, the current value of the 

expression in the case clause must be the ordinal number of some 

statement of the statement list. 

7.6.5. Examples 

case I of 

begin X := X + Y; 

Y := Y + Z; 

Z := Z + X 
end 

case j of 

begin H(I) := -H(l) ; 

begin H(l-l) := H(l-l) + H(l) ; I := I-l end ; 

begin H(l-l) := H(l-l) ^H(l); I := I-l end; 

begin H(H( I-l)) :=H(l); I := 1-2 end 
end 
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7.7. Iterative Statements 



<for clause> 



7.7.1. Syntax 

<iterative statement > ::= <for clause> <statement> | <5f/hile 

clause> <statement> 
= for <identifier> := <initial value> 
step <increment> until <Limit> do | for 
<identifier> := <initial val-ue> until <Iimit> 
do I for <identifier> := <for list> do 
<for list> ::= <integer expression> | <for list> , <integer 

expression> 
<initial value> ::= <Lnteger e2cpression> 
<increment> ::= <integer, express ion> 
<Limit> : := <integer express ion> 
<S\rhile clause> ::= while <logical expression> do 



7.7.2. Semantics 

The iterative statement serves to express that a statement be 



Example FOR statement 


Values I takes 


on 


for I:=l 


step 


2 until 10 do 


1> 5, 5, 1, 9 




for I:=l 


step 


2 until 1 do 


1 




for I:=l 


step 


2 until -10 do 


none 




for I:=l 


step 


-2 until 10 do 


none 




for I:=l 


step 


-2 until 1 do 


1 




for I:=l 


step 


-2 until -10 do 


1, -1, -3, -5, 


-7, -9 


for I:=l 


step 


until 10 do 


1, 1, 1, 1, 1, 


1, ... 


for I:=l 


step 


until 1 do 


1, 1, 1, 1, 1, 


1, ... 


for I:=l 


step 


until -10 do 


none 





Table of results for various FOR statements 
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executed repeatedly depending on certain conditions specified by a 
for clause or a while clause. The statement following the for clause 
or the while clause always acts as a block, whether it has the form of 
a .block or not. The value of the control identifier (the identifier 
fo."ULowing for ) cannot be changed by asisignment within the controlled 
statement. 

(a) An iterative statement of the form 

for <identifier> := El step E2 until E3 do <statement> 
is exactly equivalent to the block 

begin <statement-0>; <statement-l> ... ; <statement-I>; 
... ; <statement-N> end 

in the I statement every occurrence of the control identifier 
is replaced by the value of the expression (El + I x E2). 

The index N of the last statement is determined by 
" N < (E3-E1) / E2 < N+1. If N < 0, then it is understood that 
the sequence is empty. The expressions El, E2, and E3 are 
evaluated exactly once, namely before execution of <statement-0>. 
Therefore they can not depend on the control identifier. 

(b) An iterative statement of the form 

for <identifier> := El until E3 do <statement> 
is exactly equivalent to the iterative statement 

for <identifier> := El step 1 until E3 do <statement> 

(c) An iterative statement of the form 

for <identifier> := El, E2, ... , EN do <statement> 
is exactly equivalent to the block 
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begin <statement-l>; <stateinent-2> . . . <statement-I> ; ... 

<stateinent-N> end 

th 
when in the I statement every occurrence of the control identifier 

is replaced by the value of the expression EI. 

(d) An iterative statement of the form 

while E do <statement> 

is exactly equivalent to 

begin 
L: i£ E then 

begin <statement> ; goto L end 
end 

where it is understood that L represents an identifier which is not 

defined at the place from which the while statement is entered. 

7.7.3. Example s 

for V := 1 step 1 until N-1 do S := S + A(U,V) 
while (J > 0) and (CITY(J) -i = S) do J := J-1 
for I := X, X + 1, X + 5, X + 7 do P(l) 

7.8. Standard Procedures 

Standard procedures are provided in ALGOL W for the purpose of 
communication with the input/ output system. These standard procedures 
differ from explicitly declared procedures in that the number and type 
of actual parameters need not be identical in every procedure statement 
in which the standard procedure identifier appears. In the following 
descriptions, each T. is to be replaced by any one of 
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integer 


real 


long real 


complex 


long complex 



string (<integer n\imber>) 

logical 

bits 



7.8.1. The Input/ Output System 

ALGOL W provides a single legible input stream and a single legible 
output stream. These streams are conceived as sequences of records, each 
record consisting of a character sequence of fixed length. The input 
stream has the logical properties of a sequence of cards in a card reader; 
records consist of 80 characters. The output stream has the logical 
properties of a sequence of lines on a line printer; records consist 
of 132 characters, and the records are grouped into logical pages. 
Each page consists of not less than one nor more than 60 lines. 

Input records may be transmitted as strings without analysis. 
Alternatively, it is possible to invoke a procedure which will scan the 
sequence of records for data items to be interpreted as numbers, bit 
sequences, strings, or logical values. If such analysis is specified, 
data items may be reference denotations of the corresponding constants 
(cf. Section k) , In addition, the following forms of arithmetic expressions 
are acceptable data items, and the corresponding simple types are those 
detennined by the rules for expressions (cf. 6.3.)* 

(1) <sign> <r number> 

where : T is one of integer, real, long real, complex, long 
complex; 
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(2) <X nuinber> <sign> <T^ niunber> 

<sign> <r^ mjinber> <sign> <T ' nuinber> 
where : T-^ is one of integer, real, long real, and 
7 is one of complex, long complex. 

Data items are separated by one or more blanks. Scanning for data items 
initially begins with the first character of the input stream; after 
the initial scan, it normally begins with the character following the 
one which terminated the most recent previous scan. Leading blanks are 
ignored. The scan is terminated by the first blank following the data 
item. In the process, new records are fetched as necessary; character 
position 80 of one record is considered to be immediately followed by 
character position 1 of the next record. There exist procedures to 
cause the scanning process to begin with the first character of a record; 
if scanning would not otherwise start there, a new record is fetched. 

Output items are assembled into records by an editing procedure. 
Items are automatically converted to character sequences and placed 
in fields according to the simple type of each item, as described below: 

Simple Type Field Description 

integer right justified in a field containing 
the number of characters specified by 
the current value of INTFIELDSIZE 
(initialized to Ik, cf. 8.§-. ) and followed 
by 2 blanks 

real right justified in a field of Ik characters 

and followed by 2 blanks 
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long real right justified in a field of 22 characters 

and followed by 2 blanks 
complex two adjacent real fields 
long complex two adjacent long real fields 
logical right justified in a field of 6 characters 

followed by 2 blanks 
string placed in a field exactly the length of 

the string 
bits same as real 

The first field transmitted begins the output stream; thereafter, each 
field is normally placed immediately following the most recent previously 
transmitted field. If, however, the field corresponding to an item 
cannot be placed entirely within a non-empty record, that item is made the 
first field of the next record. In addition, there exist procedures to 
cause the field corresponding to an item to begin a new record. Each 
page group is automatically teraiinated after 60 records; procedures 
are provided for causing earlier termination. 

7.8.2. Read Statements 

Implicit declaration headings: 

procedure READ (T, re suit X ; ... ; T result X ) ; 
procedure READON (T result X ; ... ; T result X ) ; 
(where n > = l) 

Both READ and READON designate free field input procedures. Input 
records are scanned as described in 7. 8.1. Values on input records are 
read, matched with the variables of the actual parameter list in order 
of appearance, and assigned to the corresponding variables. The simple 
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type of each data item must be assignment compatible with the simple 
type of the corresponding variable. For each READ statement, scanning 
for the first data item is caused to begin with the first character of 
a record; for a READON statement, scanning continues from the previous 
point of termination as determined by prior use of READ, READON, or 
lOCONTROL (cf. 7.8.1.). 

Implicit declaration heading: 

procedure READCARD ( string (8o) result X , . . . , X ) ; 
(where n > = l) 

READCARD designates a procedure transmitting 80 character input 
records without analysis. For each variable of the actual parameter list, 
the scanning process is set to begin at the first character of a record 
(by fetching a new record if necessary), all 80 characters of that record 
are assigned to the corresponding string variable, and subsequent input 
scanning is set to begin at the first character of the next sequential 
record. 

7.8.3. Write Statements 

Implicit declaration headings: 

procedure WRITE (T value X • ... ; T value X )"; 
procedure WRITEON (T-, value X ; ... ; T value X ) ; 
(where n > = l) 
WRITE and WRITEON designate output procedures with automatic format 
conversion. Values of expressions of the actual parameter list are converted 
to character fields which are assembled into output records in order of 
appearance (cf. 7. 8.1.). For each WRITE statement, the field corresponding 
to the first value is caused to begin aji output record; for a WRITEON 
statement, assembly continues from the previous point of termination. 
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7.8.i+. Control Statements. 
Implicit declaration headinc: 

procedure lOCONTROL ( integer value X^, . . .,X^) ; 
(where n > = l) 
lOCONTROL designates a procedure which affects the state of the 
input/output system. Argument values with defined effect are listed 
"below; other values currently have no effect but are explicitly made 
available for local use or future expansion. 

Value Action (cf. 7.8.1.) 

1 Subsequent input scanning is set to begin with the first 
character of a record. Does nothing if already 
positioned at the first character of a record. 

2 Subsequent output assembly is set to begin «ith the 
first character of a record. Does nothing if already 
positioned at the first character of a record. 

5 Like I0C0NTR0L(2), except that the new record is also 

caused to begin a new output page. Does nothing if already 
positioned at the first character at the top of a page. 

h Subsequent automatic page ejects on the printed output 

are sujypressed, thus allowing more than 6o records on 
a page. This suppresses only the automatic page eject 
after 60 records; I0C0NTR0L(5) still works. (Note that 
some operating systems also have a feature to force 
page ejects after 60 records.—' 

5 Subsequent automatic page ejects on the printed output 
are allowed; undoes I0C0M'R0L(i4-) . While the automatic 
page eject is suppressed, page and line counts are stijj. 
maintained based on 60 records per page, so a program may 
still be cut off for exceeding the page estimate. /uLso, 
after an I0C0NTR0L(5)^ the first automatic page eject may 
occur after 1 to 60 more records, unless the counters are 
re- synchronized at that point via lOCONTROL (5) . 
72 Subsequent use of READ and READON are to use only the first 
72 characters of a record; the last eight are ignored. 
READCARD still reads all 80 characters. 
80 Subsequent use of READ and READON are to use all 80 
characters of a record. 
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7.8.5. Examples 

llEAD ( X, A(l) ) 
READCAED ( S, LniTE(10|80) ) 
WRITE ( "AVERAGE =", SUM/N ) 
WRITEON ( X(1,J) ) 
lOCONTROL (2) 

7.8.6 TRACE standard procedure 

The n-umber of times each source statement is traced by the debugging 
facilities, or the number of times each source statement can generate a 
significance error message (c.f. $DEBUG and $NORM in the Deck Setup 
section) can be modified at execution time by the standard procedure 
TRACE. Typical use would be TRACE(O) ; at the beginning of a program to 
initially turn the facility off, TRACE (n) ; at the beginning of a particular 
section of code to be watched, and TRACE(O) ; at the end of that section. 

Implicit declaration heading: 

procedure TRACE ( integer value N) ; 

comment changes the upper bound for statement tracing 
or significance error messages: 

if N > then N becomes the statement tracing bound, 
if N = then statement tracing and floating-point 

interpretation are suspended, 
if N < then ABS(n) becomes the significance error 
message bound; 
TRACE has no effect unless a $DEBUG,5 $DEBaG,i4- or $NORM option card 
has been used. 



X 


TRUNCATE (X) 


ENTIER(X) 


ROIMD(X) 


2.3 


2 


2 


2 


2.5 


2 


2 


3 


2.7 


2 


2 


3 


-2.5 


-2 


-5 


-2 


-2.5 


-2 


-3 


-3 


-2.7 


-2 


-5 


-3 



Table of values for TRUNCATE, ENTIER, and ROUHD 
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8. STANDARD FUNCTIONS AND PREDECLARED IDENTIFIERS 
The ALGOL W environment includes declarations and initialization of 
certain procedures and variables which supplement the language facilities 
previously described. Such declarations and initialization are considered 
to be included in a block which encloses each ALGOL W program (with 
terminating period eliminated) . The corresponding identifiers are said 
to be predeclared. 

8.1. Standard Transfer Functions 

Certain functions for conversion of values from one simple type 
to another are provided. These functions are predeclared; the 
corresponding implicit declaration headings are listed below: 

integer procedure TRUNCATE ( real value X) ; 

comment the integer i such that 

|i| < = |x| < |i| + 1 and i^X > = 
integer procedure ENTIER ( real value X) ; 

comment the integer i such that 
i< = X<i+l ; 
integer procedure ROUND ( real value X) ; 

comment the value of the integer expression 

if X < then TRUNCATE(X-0.5) else TRUNCATE(X+0.5) ; 
integer procedure EXPONENT ( real value X) ; 

comment if X = 0, otherwise the largest integer i such that 
i < = log^g(lxl) + 1 . 

This function obtains the exponent used in the S/560 

representation of the real number; 
real procedure ROUNDTOREAL ( long real value X) ; 

comment the properly rounded value of X ; 
real procedure REALPART ( complex value Z) ; 

comment the real component of Z ; 
long real procedure LONGREALPART ( long complex value Z) ; 
real procedure IMAGPART ( complex value Z) ; 

comment the imaginary component of Z ; 
long real procedure LONGIMAGPART ( long complex value Z) ; 
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complex procedure IMAG ( real value X); 

coinment the complex number + Xi ; 
long complex procedure LONGIMA.G ( long real value X) ; 
logical procedure ODD ( integer value N) ;' 

comment the logical value 
N rem 2=1; 
bits procedure BITSTRING ( integer value N) ; 

comment two's complement representation of N ; 
integer procedure NUMBER ( bits value X) ; 

comment integer with two's complement representation X ; 
integer procedure DECODE ( string (l) value S); 

comment numeric code for the character S (cf . Appendix l) ; 
string (l) procedure CODE ( integer value N); 

comment character with numeric code (cf. Appendix l) given by 
abs (N rem 256) ; 

In the following comments, the significance of characters in the prototype 

formats is as follows: 

D decimal digit in a mantissa or integer 

E decimal digit in an exponent 

A hexadecimal digit in a mantissa or integer 

B hexadecimal digit in an exponent 

+ sign (blank for positive mantissa or integer) 

jj blank 

Each exponent is unbiased. Decimal exponents represent powers of 10; 
hexadecimal exponents represent powers of I6. Each mantissa (except O) 
represents a normalized fraction less than one. Leading zeroes are not 
suppressed. 



61 



8. STANDARD FUNCTIONS 



string (12) procedure BASEIO ( real value X); 
coinment string encoding of X with format 
^+EE+DDDDDDD ; 
Gtring (l2) procedure BASEI6 ( real value X); 

comment string encoding of X with format 
,_^+BB+AAAAAA ; 
string (20) procedure LONGBASEIO ( long real value X); 
comment string encoding of X with format 
^+EE+DDDDDDDDDDDDDDD ; 
string (2Q) procedure LONGBASEI6 ( long real value X) ; 
comment string encoding of X with format 
^^+BB+AAAAAAAAAAAAAA ; 
string (12) procedure INTBASEIO ( integer value n); 
comjnent string encoding of N with format 
^+DDDDDDDDDD ; 
string (12) procedure INTBASEI6 ( integer value n); 

comment unsigned^ two's complement string encoding of N with format 
... .M AAAAAA ; 

8.2. Standard Functions of Analysis 

The following functions of analysis are provided in the system 

environment. In some cases^ they are partial functions; action for 

arguments outside of the allowed domain is described in S.^. These 

functions are predeclared; the corresponding implicit declaration headings 

are listed below: 

real procedure SQ^T ( real value X); 

comment the positive square root of X_, 
domain : X > = ; 
long real procedure LONGSQJIT (long real value X) ; 
comment the positive square root of X, 
domain : X > = ; 
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real procedure EXP ( real value X) ; 
comment e *^ X , 

domain : X < I7I+.67 ; 
long real procedure LONGEXP (long real value X) ; 
comment e ** X , 

domain : X < 17U.67 ; 
real procedure LN ( real value X); 

comment logarithm of X to the base e, 
domain : X > ; 
long real procedure LONGLN ( long real value X) ; 
comment logarithm of X to the base e, 
domain : X > ; 
real procedure LOG ( real value X) ; 

comment logarithm of X to the base 10, 
domain : X > ; 
long real procedure LONGLOG ( long real value X) ; 
comment logarithm of X to the base 10, 
domain : X > ; 
real procedure SIN ( real value X) ; 
comment sine of X (radians), 

domain : -82355O < X < 82355O ; 
long real procedure LONGSIN ( long real value X) ; 
comment sine of X (radians), 

domain : -5.537 '+15 < X < 5.537 '+15 ; 
real procedure COS ( real value X) ; 
comment cosine of X (radians) 
domain : -82355O < X < 82355O ; 
long real procedure LONGCOS ( long real value X); 
comment cosine of X (radians), 

domain : -3.537 '+15 < X < 3.537 '+15 ; 
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real procedure ARCTAN ( real value X) ; 
comment arctangent (radians) of X, 
range : -n/2 < ARCTAN (X) < tt/2 ; 
long real procedure LQnGARCTAN (long real value X) ; 
comment arctangent (radians) of X, 
range : -n/2 < LONGARCTAN(X) < tt/2 ; 

8. 3. Time Function 

The ALGOL W environment includes a clock which measures elapsed 
time since the beginning of program execution. The resolution of that 
clock is l/6o second. A predeclared function is provided for reading 

the clock. 

integer procedure TIME ( integer value N) ; 

comment Argument Result Units 

- time of day 

-1 seconds/60 

- elapsed execution time - 

minutes/lOO 

1 seconds/60 

2 seconds/38iK)0 

The result for any other argument is not defined; 

8.U. Predeclared Variables 

The following variables are to be considered declared and initialized 
by assignment in the conceptual block enclosing the entire ALGOL W program. 
The values indicated for real and long real quantities are to be understood 
as decimal approximations to the actual machine -format values provided. 

integer INTFIELDSIZE; 

comment initialized to ik , 

controls output field size for integers (cf. 7. 8.1.); 
integer MAXINTEGER; 

comment initialized to 2lk'jkQ36k'J , 
the maximum positive integer allowed by the implementation; 
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real EPSILON; 

coimnent initialized to 9»5567^3'-07 > 

the largest positive real nixmber e provided by the 
implementation such that 
1 + e = 1 ; 
long real LONGEPSILON; 

comment initialized to'2.22GU460l^925031'-l6L , 

the largest positive long real number e provided by 
the implementation such that 
1 + e = 1 ; 
long real MA.XREAL; 

comment initialized to 7. 2^7 OO5 577 35 226 '+7 5 L , 

the largest positive long real number provided by the 
implementation; 
long real PI; 

comment initialized to 3.1ifl59265358979L ; 

8.5. Exceptional Conditions 

The facilities described below are provided in ALGOL W to allow 
detection and control of certain exceptional conditions arising in 
the evaluation of arithmetic expressions and standard functions. 

Implicit declarations: 

record EXCEPTION ( logical XCPNOTED; integer XCPLI^CET, XCPACTION; 

logical XCPMA-RK; string (6^^) XCPMSG); 
reference (EXCEPTION) 

OVFL, UNFL, DIVZERO, 

INTOVFL, IHTDIVZERO, 

SQRTERR, EXPERR, LNLOGERR, SINCOSERR ; 
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Associated with each exceptional condition which can be processed 
is a predeclared reference variable to which references to records of 
the class EXCEPTION can be assigned. Fields of such records control the 
processing of exceptions. The association between conditions and 
reference variables is as follows: 



Reference Variable 
OVFL 

IMFL 

DIVZERO 

INT OVFL 
INTDIVZERO 
SQRTERR 
EXPERR 

LNLOGERR 

SINCOSERR 



Conditions 

real, long real, complex, long 

complex (exponent) overflow 
real, long real, complex, long 

complex (exponent) underflow 
real, long real, complex, long 

complex division by zero 
integer overflow 
integer division by zero 
negative argument for SQJIT, LONGS QPT 
argument of EXP, LONGEXP out of 

domain (cf. 8.2.) 
argument of LN, LOG, LONGLN, 

LONGLOG out of domain (cf. 8.2.) 
argument of SIN, COS, LONGSIN, 

LONGCOS out of domain (cf. 8.2.) 



When one of the conditions listed above is detected, the corresponding 
reference variable is interrogated, and one of the alternatives described 
below is chosen. 

If the value of the reference variable interrogated is null, the 
condition is ignored and execution of the ALGOL W program continues. 
In such situations, a value of is returned as the value of a standard 
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function. For other conditions the result is that provided by the 

2/ 
underlying IBM System/360 hardware-^ . In determining such a result, it 

is to he noted that in those cases in which the detection of exceptional 

conditions can be inhibited at the hardware level, namely integer overflow 

and exponent underflow, detection is so inhibited when the corresponding 

reference is NULL. 

If the value of the reference variable interrogated is not NULL, 

the fields of the record designated by that reference are interrogated, 

and processing action is that described by the algorithm given below in 

the form of an extended AIGOL W procedure. Identifiers in lower case 

represent quantities which transcend the ALGOL W language; they are 

explained subsequently. 

procedure PROCESS.EXCEPTION ( reference (EXCEPTION) value CONDITION); 
begin 

XCPNOTED( CONDITION) := true ; 

XCPLIMIT( CONDITION) := XCPLIMIT (CONDITION) - 1; 

if (XCPLIMIT(CONDITION) < O) or XCPMARK( CONDITION) then 

WRITE ("*-»^^<^^ ERROR NEAH COORDINATE nnnn -"); 
if XCPLIMIT (condition) < then endexecution else 
if integercondition then 
resultant := default else 

resultant := if XCPACTI0N( CONDITION) = 1 then adjustment^ else 
if XCPACTION(CONDITION) = 2 then OL else 
default 
end PROCESSEXCEPTION 

This procedure is invoked with the value of the reference variable 

appropriate to the condition as actual parameter. The significance of 

the special identifiers used is as follows: 

2? — ~~" 

-^ IBM Systey560 Principles of Operation, IBM Systems Library, Form A22-6821 
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nnnn 



endexecution 



integercondition 



default 



resultant 



adjustment 



approximate coordinate of the source code 

which was being executed when the exceptional 

condition was detected 

procedure to terminate execution of the ALGOL W 

program 

logical value which is true if, and only if, 

the condition being processed is integer overflow 

or integer division by zero 

result of the operation or function provided 

by the ALGOL W system prior to invocation of 

the exception processing procedure; this is 

3/ 
defined by the hardware=^ for arithmetic 

operations and is the value for standard 

functions 

value to be returned as the result of the 

arithmetic evaluation or standard function 

invocation 

adjusted result of the operation according to 

the following table 



Condition 

exponent overflow, 
division by zero 



Adjustment 

if default < then 
-MAXREAL else MAXHEAL 



exponent underflow 



OL 



argument X out of domain for : 

SQ;RT(abs X), LONGS QJ^T (abs X) 

MAXREAL 

-MAXREAL 

-mXREAL 

OL 

OL 



SQJRT, LONGSQRT 
EXP, LONGEXP 
LN, LONGLN 
LOG, LONGLOG 
SIN, LONGSIN 
COS, LONGCOS 
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The reference variable UNFL is initialized by the system to NULL. 
All other reference variables listed above are initialized to references 
to a special record which is accessible only by the system. Interrogation 
of this record by the procedure described above has the effect of causing 
the ALGOL W program to be terminated with a message indicating the type 
of exception. Any other attempt to access any field of this record will 
result in a reference error. 



condition 


XCPACTION/l 


OVFL 


exponent 128 
too small 


UNFL 


exponent 128 
too large 


DIVZERO 


dividend 


INTOVFL 


true result 
+ 2^«^32 


INTDIVZFRO 


dividend 


SQRTERR 





KXPJilKR 





IMiOGERR 





SINCOSERR 






XCPACTION/l or 2 XCPACTI0N=1 XCPACTI0N=2 Reference=NULL 



+ MAXREAL 



Table of Results for Exceptional Conditions 



exponent 128 
too small 





+ MAXREAL 









dividend 


true result 


true 


result 


true result 


+ 2^<-^52 


+ 


2*^32 


+ 2^^32 


dividend 


dividend 


dividend 


sqrt(abs x) 












MAXREAL 












-MAXREAL 
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Example : 

It is desired to allow up to ten overflows, but to each tijne replace 
the result with MAXREAL and to print a warning message. 

The values needed for this are: 

this will be changed to TRUE if an overflow occurs, 
allow up to ten overflows before being cut off. 
replace the result with +MAXREAIj. 
print a message each time an overflow occurs, 
message to be printed. 



XCPNOTED 


FALSE 


XCPLIMIT 


10 


XC PACTION 


1 


XCPMARK 


TRUE 


XCHvlSG 


tf ff 



The following assignment statement will establish the proper 
environment : 

OVFL := EXCEPTION(FALSE, 10, 1, TRUE, "OVERFLOW FIXED UP") 



TO 



CHARACTER CODES 



APPENDIX 1 - CHARACTER ENCODINGS 

The following table presents the correspondence between printable 
string characters and their (EBCDIC) integer encodings. This encoding 
establishes the ordering relation on characters and thus on strings. 
Those characters in parentheses are not available on the line printer. 
Integer codes not listed below do not correspond to any established 
character. (Also see CODE, DECODE on page 139.) 



61^ 


space 


129 


(a) 


193 


A 


21+0 





7^ 


V) 


130 


(b) 


191+ 


B 


21+1 


1 


75 


. 


131 


(c) 


195 


C 


21+2 


2 


76 


< 


132 


(d) 


196 


D 


21+3 


3 


77 


( 


133 


(e) 


197 


E 


21+1+ 


1+ 


78 


+ 


I3h 


(f) 


198 


F 


21+5 


5 


79 




135 


(g) 


199 


G 


21+6 


6 


80 


& 


156 


(h) 


200 


H 


21+7 


7 


90 


(i) 


137 


(i) 


201 


I 


21+8 


8' 


91 


$ 


lii5 


(J) 


209 


J 


21+9 


9 


92 


•K- 


1I+6 


(k) 


210 


K 






93 


) 


li^7 


(1) 


211 


L 






9h 


> 


llf8 


(m) 


212 


M 






95 


—1 


lif9 


(n) 


213 


N 






96 


- 


150 


(0) 


211+ 









97 


/ 


151 


(p) 


215 


P 






107 


} 


152 


(q) 


216 


Q 






108 


lo 


153 


(r) 


217 


R 






109 




162 


(s) 


226 


S 






110 


> 


163 


(t) 


227 


T 






111 


7 


161+ 


(u) 


228 


U 






12'd 


: 


165 


(v) 


229 


V 






123 


# 


166 


(w) 


230 


W 






12i^• 


® 


167 


(x) 


231 


X 






125 


f 


168 


(y) 


232 


Y 






126 


= 


169 


M 


233 


Z 






127 


n 
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ALGOL W ERROR MESSAGES 

The compiler is divided into three passes: pass 1 reads the program, 
lists it, and saves it in memory in a compressed (tokenized) form; 
pass 2 parses the program, examining each statement to see if it is written 
properly; pass 5 generates the 56o machine code for the program. Each 
pass is capable of detecting a different set of errors. (There is also 
a fourth, loader, pass that on rare occasions may generate messages.) 
Errors may also occur while a compiled program is executing; these are 
called Run-Time errors. 

Pass One Error Messages 

All pass 1 error messages are of the form: 

ERROR Ixxx NEAR COORDINATE yyyy - message 
yyyy corresponds to one of the coordinate numbers in the first column on 
the program listing. If you have many statements on a card, only the 
coordinate of the first one is on the program listing. Some messages are 
only warnings, in which case the fixup action taken is indicated below. 

The messages are: 

1001 INCORRECTLY FORMED DECLARATION 

a) STRING(x) or BITS(x), where x is not a number. 

b) STRING(O) or STRING(> 256) . FIXUP: treated as STRING(l) . 

c) BITS (not 52) . 

1002 WARNING: INCORRECT CONSTANT 

a) More than 256 digits. FIXUP: treated as 0. 

b) A bad e3q)onent. FIXUP: exponent treated as 0. 

1005 MISSING "END" 

Final "." or /* card or ^ card encountered before an END matching 
each BEGIN. The coordinate indicated may be two or three more than 
the last coordinate on your listing. (Check the block numbers in 

the second column of your program listing.) 
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lOOU UNMATCHED "END" (DELETED) 

An END encountered after what appeared to be the final END. When 
possible, the innermost END is deleted. (Check the block numbers 
in the second column of your program listing.) 

1005 WARNING: MISSING ")" 

STRING(x or BITS(x with no closing ")". FIXUP: supplied. 

1006 WARNING: ILLEGAL CHARACTER 

A strange character accidently keypunched (or overpunched) . It is 
likely that the character will print as a blank, so look at your card, 
The characters on a standard keypunch that are illegal except in 
ccmments and strings are: ^ & I $ ^ ? @ . FIXQP: treated 
as a blank. 

1007 WARNING: MISSING FINAL "." 

May occur if the prograin ends with an un-tenninated string constant 
or an un-terminated comment. 

1008 WARNING: INVALID STRING LENGTH 

a) A string constant of len^h > 256. FIXUP: truncated to 256 
characters. (You may have left out a quote.) 

b) An empty string constant (""). FlXIfP: replaced with "?". 

1009 WARNING: INVALID BITS LENGTH 

a) "#" not followed by hex digits. FIXUP: replaced with #0. 

b) "#" followed by more than 8 hex digits. FIXUP: replaced 
with 40. 

1010 MISSING "(" 

REFEEIENCE not followed by "(". 

1011 ERROR TABLE OVERFLOW 

More than 50 error messages from pass 1. The rest are lost. 

1012 COMPILER TABLE OVERFLOW 

The program is too big to fit in memory during compilation. The 
following is a list of tables which could be full at this point . 
If you re-compile with more memory, the starred tables will be 
bigger. 
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-><- BCD POINTERS -- if all of your names are short {3, h letters) 
this table may fill up before the id table. 

BLOCK LIST -- 511 entries, one for each BEGIN, PROCEDURE (except 
for formal parameter specification), and FOR. 

BLOCK STACK -- this has a fixed size of thirty entries. It will 
overflow if you have 51 BEGINS nested within each other. (The 
block numbers in the second column of your program listing show 
how full this stack is.) 

* ID TABLE . — place for the characters in your identifiers. 

* NAME TABLE -- table of attributes of all declared identifiers. 

^ PROGRAM TOKEN SPACE -- the internal text for the program. This 
is the most likely table to be full. 

^ REFERENCE LIST -- information about each variable declared of 
type REFERENCE. 

1015 WARNING: ID LENGTH > 256 

One of the names in your program is much too long. FIXUP: troincated 
to 256 characters. 

10li^■ WARNING: UNEXPECTED "." 

An apparently final "." not followed by fo card or /^ card, such as 
in a constant with an inadverfcant space: . 125 . FIXUP: treated 
as a blank. 

1015 TOO MANY RECORD CLASSES 
Only 15 are allowed. 

1016 WARNING: SEQ FIELD OUT OF ORDER 

a) The numeric part of columns 75-8o was not greater than the 
numeric part of the previous card. 

b) The alphabetic part of columns 75-80 was not the same as the 
alphabetic part on the previous card. 

In either case, the offending card(s) is marked with #### on the 
listing. This message appears only once in any single compilation. 
The coordinate specified is the coordinate on the first erroneous 
card. 
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1Q17 WAMING: SB^ FIELD CONTAINS TRASH 

a) The first card of the deck did not contain a sequence number, 
but columns 75-8o on this card are not all blank. (A statement 
may have accidently run past column 72). 

b) The first card of the deck has a non-blaiik sequence field 
(columns 73-8o), but there are no digits in it. 

In either case, the offending card(s) is marked with •^■^(-^Hf on the 
listing. Like 1016, this message appears at most once, and the 
coordinate refers to the first instance. 

1018 WARNING: ";" DELETED BEFORE "ELSE" 

This is a common mistake that the compiler fixes up. 



Pass Two Error Messages 

All pass 2 error messages have the format: 

ERROR 2xxx NEAR COORDINATE yyyy - message 
(FOUND NEAR "...") 
yyyy corresponds to one of the coordinate numbers in the first column 
on the program listing. If you have many statements on a card, only the 
coordinate of the first one is on the program listing. "..." is the 
program text being scanned at the time the error is detected (which may 
be somewhat after the actual point of error) . If any pass one or pass 
two error messages occur (other than warnings), then compilation stops 
at the end of pass two. Often many error messages are generated for 
what is essentially a single mistake. 
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2001 MORE THAN ONE DECLARATION OF "XXXX" IN THIS BLOCK 

The variable XXXX has been declared more than once in the same block. 

2002 "XXXX" IS UNDEFINED 

The variable or label XXXX has not been declared in the current block 
or in one containing it. 

2003 SYNTAX ERROR 

This is a "catch-all" message that is produced when the compiler cannot 
find anything more meaningful to say. The current context will point 
to the part of the program being analyzed when the error was DETECTED, 
but in general the real error may be much earlier in the program. If 
the current context is at or near a semi-colon and you cannot find 
any errors there, try looking at the beginning of the statement which 
ends at that semi-colon. If the current context is at or near an 
END, try looking at the corresponding BEGIN. For example, if 
ELSE BEGIN ... END; occurs, but not afl^er an IF, the compiler will 
not detect the error until it reaches END; . 

200i| IDENTIFIER MUST BE RECORD CLASS ID 

In a declaration REFERENCE(xyz) , xyz is not the name of a record 
class . 

2005 MISMATCHED PARAMETER 

A procedure call is passing an actual parameter which is not of the 
same type as the formal parameter in the procedure declaration. 

2006 INCORRECT NUMBER OF ACTUAL PARAMETERS 

The number of actual parameters in a procedure call does not equal 
the number of formal parameters in the procedure declaration. 

2007 INCORRECT DIMENSION 

a) The number of dimensions of an actual parameter does not equal the 
number of dimensions declared for the corresponding formal parameter 

b) The wrong number of subscripts have been used in an array element 
reference . 

2008 DATA AREA EXCEEDED 

The data for each PROCEDURE or BEGIN block with declarations is limited 
to iK)96 bytes. Read the suggestions for 5001. 
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2009 INCORRECT NUMBER OF FIELDS 

In creating a record^ too many or too few initial values have been 
specified. 

2010 INCOMPATIBLE STRING LENGTHS 

a) In STRINGl :- STRING2 , STRING2 is longer than STRINGl. 

b) In STRING3(x|y) , y is larger than the declared size of STRING5' 

c) A long string has been passed to a shorter foiroal string parameter, 

2011 INCOMPATIBLE REFERENCES 

A reference variable refers to a wrong record class. 

2012 BLOCKS NESTED TOO DEEPLY 

Non-trivial blocks (i.e., BEGIN blocks with declarations, or the 
blocks associated with a PROCEDURE) are nested more than eight deep 
(including the BEGIN at the start of the program). The error is 
detected early in the ninth block. Also, procedure calls nested too 
deeply. 

2015 WARNING: ";" SHOULD NOT FOLLOW EXPRESSION 

In BEGIN . . . expression ; END the semi-colon is incorrect but ignored, 

20lif REFERENCE MUST REFER TO RECORD CLASS 

In REFERENCE(xyz) . . . , xyz is not a record class. 

2015 EXPRESSION MISSING IN PROCEDURE BODY 

A function PROCEDURE must have its final value specified by an 
expression standing alone immediately before the END. 

2016 IMPROPER COMBINATION OF TYPES 

Mixing incompatible types as alternatives of a conditional or case 
expression. 

2017 RESULT PARAMETER MUST BE A VARIABLE 

In a procedure declaration, a formal parameter is declared 

... RESULT xyz , but a call to that procedure has passed an expression 

which is not a variable. 

2018 PROPER PROCEDURE ENDS WITH ^ EXPRESSION 

A procedure which returns no value nonetheless ends with an expression. 
(This sometimes happens when a final assignment statement has been 
mis -punched A = B , instead of A := B .) 



77 



EKKUK MEfc3 SAGES 

2019 "XXXX" CANNOT FOLLOW "YYYY" HERE 

There are no legal programs in which XXXX and YTYY can be written 
together. This is much like 2003. (You may have left out a 
semi-colon, a comma, or an operator.) 

2020 ARRAY USED INCORRECTLY 

A simple variable must be used here. 

2021 TOO MANY CONSTANTS IN PROCEDURE 

No more than 256 different constants are allowed. 

2022 INCORRECT STRING LENGTH 

In S(x|y) , y is negative, zero, or greater than 256. 

2023 COMPILER TABLE OVERFLOW 

The program is too big to fit into memory during compilation -~ there 
is no more room for the parse trees that represent the program at 
this point. If you re-compile with more memory, there will be more 
room available for the program. 

202i^- TOO MANY PROCEDURES 

Only 255 different procedures or BEGIN blocks with declarations are 
allowed by the compile?:. 

2025 CONSTANT OUT OF RANGE 

a) The absolute value of an integer is greater than (2-^^31) -1 
(^ digits) . 

b) The absolute value of the adjusted exponent in a real number is 
greater than 75' The exponent written is first adjusted to 
include the number of digits written in front of the decimal point 

2026 INDEX OF ARRAY OR STRING MUST BE INTEGER 

a) In S(x|y) , X is not an integer expression. 

b) In Arrayname( . . .X. . .) , x is not an integer expression. 
(You may have accidently used a REAL variable.) 
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2027 INCORRECT OPERMD TYPE(S) FOR XXXX 
XXXX is a unary operator. 

a) LONG is applied to something which is LOGICAL, STRING, BITS, 
or REFERENCE. 

b) SHORT is applied to something which is LOGICAL, STRING, BITS, 
or REFERENCE. 

c) -1 (not) is applied to something which is neither LOGICAL nor BITS 

d) Prefix + or - is applied to something which is LOGICAL, 
STRING, BITS, or REFERENCE. 

e) ABS is applied to something which is- LOGICAL, STRING, BITS, or 
REFERENCE. 

f) In Recordvariable(x) , x id not a REFERENCE. 

g) In FOR I:=x... , x is not an integer expression. 

h) In various other contexts, an INTEGER or LOGICAL operand is 
required. 

2028 INCORRECT OPERAND TYPE(S) FOR XXXX 

XXXX is a binary operator. Even when the error is in the first 
operand, the error is detected after both operands are inspected, 
a) AND or OR is applied to expressions which are not both BITS or 

both LOGICAL. This case often happens in an IF statement when 

necessary parentheses are left out; 
IF X < Y OR Z = 5 THEN . . . 

As written, y is to be ORed with z before anything else is 

calculated. Try instead: 

IF (X < Y) OR (Z = 5) THEN ... 

A relational operator (like > ) is applied to something which 

is COMPLEX, LOGICAL, or REFERENCE. 

SHL or SHR is applied to something which is not BITS, or the 

shift amount is not INTEGER. 
d) In X IS Recordclass , x is not a REFERENCE. 
ej In x^^y , x is LOGICAL, STRING, BITS, or REFERENCE, or y is 

not INTEGER. 

In a FOR statement, the UNTIL expression is not INTEGER. 

In various other contexts, an INTEGER operand is required. 
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2029 INCORRECT PAREMTHESIZIATION OF EXPRESSION 

This often occurs in conjunction with 2027 or 2028. Usually, 
additional parentheses are required in the expression. 

2050 ASSIGNMENT INCOMPATIBILITY 

An attempt to assign an expression of one type to a variable of a 
different type (or pass an actual parameter to a formal parameter 
of a different type) . The only automatic conversions allowed are 
INTEGER to REAL, INTEGER to LONGREAL, REAL to/ from LONGREAL, 
INTEGER/REAL/LONGREAL to COMPLEX/LONGCOMPLEX, complex to/from 
LONGCOMFLEX. (You cannot assign REAL to INTEGER without using 
TRUNCATE, . ENTIER, or ROUT©.) 

2031 WARNING: NAME PARAMETER SPECIFIED 

In a PROCEDURE declaration, it is usually intended that each formal 
parameter have VALUE specified. 

2032 SIMPLE VARIABLE USED INCORRECTLY 

In " x( ", X is a simple variable and not STRING. 

2035 75 ERRORS. COMPILATION TERMINATED 

Something is drastically wrong with your program. To save time 
and paper, the rest of the program is ignored. 

2999 DEBUG TABLE OVERFLOW 

If $DEBUG,x is specified with x equal to 2, 5^ or h, then a table 

is created with a fixed maximum of ^4-^^-8 entries, where one entry is used for 

each GROUP of statements that all occur together with no labels, 

branches or conditional expressions. All the statements in such a 

group are guaranteed to be executed the same number of times. Also, 

this message occurs if the compressed form of the program occupies 

more than 6^556 bytes of memory (the compressed form is used to 

generate the pseudo-listing with the statement counts) . 



Pass Three Error Messages 

Pass 3 error messages are of the form: 

ERROR 3xxx NEAR COORDINATE yyyy - message 
yyyy corresponds to one of the coordinate numbers in the first column on 
the program listing. If you have many statements on a card, only the 
coordinate of the first one is on the program listing. 
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All of the pass 5 errors are disastrous, so compilation terminates 
immediately. After any pass 5 error, a table is 

listed of (coordinate number, byte offset, byte length) triples, indicating 
how much code was generated for each statement in the current program 
segment. The last entry of this table and the last two byte lengths are 
usually garbage. 

5001 PROGRAM SEGMENT OVERFLOW 

This error message occurs because of a design constraint of the 
compiler: the total amount of machine code and constants for any 
PROCEDURE or other BEGIN block with declarations must be less than 
8192 bytes. All of the constants for a block are allocated in front 
of the first statement. Therefore, if the byte offset of the first 
statement is very large, constants are taking up too much space. 
This sometimes happens in programs with too many string constants 
(ten 80-character string constants take up 80O bytes) . The coordinate 
indicated may or may not be very accurate. The only solutions are 
to make your program smaller, or to add some artificial PROCEDURES 
or BEGIN blocks with at least one declaration, such that part of the 
block that was too big is forced into another segment. 

3002 COMPILER STACK OVERFLOW 

While generating code for a statement, the compiler uses a push-down 
stack to keep track of where it is in the statement tree. If you 
are about to get a PROGRAM SEGMENT OVERFLOW (3001), you may get this 
message instead. 

3003 COMPILER LOGIC ERROR 

Internal consistency checks performed by the compiler have failed. 
Take your card deck, exactly as it is, to a consultant. 

300^^ PROGRAM AREA OVERFLOW 

Although the words are similar to 3001, this is entirely different. 
This message means that there is no more room in memory to put the 
machine code for your program (like 2025 and 1012) . If you 
re-compile with more memory, there will be more room available for 
the machine code. 
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3005 DATA SEGMENT OVERFLOW 

The data for each PROCEDURE or BEGIN block with declarations is 
limited to lj-096 bytes t Read the suggestions for 5001. 

3006 COORDINATE TABLE OVERFLOW 

In orde?" to supply the coordinate number in run -time error messages, 
a table is built of (coordinate nuipber, address in naaqhine code) 
pairs. If you re-compile with more memory, this table will be larger. 

5007 TOO MANY PROCEDURE CALLS 

References to only 51 procedurec? are allowed within any single 
procedure. 



Loader Error Messages 

Loader error messages are all of the form: 
^^^ LOADING ERROR - message 
Like pass 5 messages, these are disastrous and terminate processing. 



DUPLICATE GLOBAL NAME - XXX 



INSUFFICIENT STORAGE 



INVALID OBJECT RECORDS 



NO EXECUTABLE STATEMENTS 



TOO MANY PROCEDURES 



UNDEFINED GXiOBAL NAME - XXX 



Two procedures with the same name were 
loaded . 

Not enough room to run the program. 
Re -run with more memory. 

A bad object card was presented, orb en 
an extra blank card. 

No main program was loaded, only external 
procedures. 

Only 96 program segments are allowed by 
the loader. 

An external procedure w^s declared, but 
not loaded. 
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Run Time Error Messages 

All run error messages are of the form: 

RUN ERROR NEAR COORDINATE yyyy IN procedure name - message 
After a run error, a post-mortem dump of all of the program's variables is 
given, unless it is explicitly turned off with a $DEBUG,0 card. To keep 
the dump reasonably small, at most eight values are dumped from an array. 
If the same identifier is declared in many blocks (note that the index 
variable in a FOR loop is considered to be declared in a block around Just 
the FOR statement), then that identifier will be listed many times. 
Variables which have never been assigned any meaningful value are printed 
as "?" . 

ACTUAL-FORMAL MISMATCH IN PROCEDURE CALL, PARAMETER #xx 

The actual parameter passed is not assignment compatible with the 
formal parajrieter. 

ARRAY SUBSCRIPTING 

An array subscript was not within the declared bounds. 

ARRAY TOO LARGE 

The first n-1 dimensions of an array declaration define too many 
elements. The product of the size of a single element times the 
first n~l dimension lengths (upper bound - lower bound + l) must 
be strictly less than 52768 . The element sizes are: 

logical 1 

integer, real, bits, 

reference h 

long real, complex 8 

long complex I6 

string length of a single string 
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ASSERTION xxxxxxx FAILED 

An assertion was not true, xxxxxxx is a running count of how 
many assertions were true^ to give a feel for how long the program 
had run. 

ASSIGNMENT TO NAME PARAMETER 

Attempt to assign to a name parameter whose actual argument is not a 
variable, but is instead an expression, a constant, or a control 
identifier. 

CASE SELECTION INDEXING 

Index in a case statement or case expression is less than 1 or 
greater than the number of cases. 

DATA AREA OVERFLOW 

No more storage is left for variables. This will happen if a program 
gets in a loop calling itself recursively, or if there really is not 
enough memory. 

DIVISION BY ZERO 

May also be caused by O^^(-n) . 

EXP ERROR 

The argument to EXP must be less than Yjk-.S] . 

INCOMPATIBLE FIELD DESIGNATOR 

An attempt has been made to access a field of a record, but the 
reference does not designate a record of the corresponding class 
(it might be NULL or undefined) . 

INCORRECT NUMBER OF PARAMETERS 

The number of actual parameters in a procedure call is different 

from the number of formal parameters declared in the called procedure. 

INTEGER DIVISION BY ZERO 

An integer operation attempted to divide by zero. 

INTEGER OVERFLOW 

An integer operation produced a nijmber whose absolute value is 
bigger than (2^31) -1 . The standard functions ROUND, TRUNCATE, 
and ENTIER will produce an integer overflow if presented with 
arguments whose absolute value is bigger than (2'^-^3l)-l • 
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LENGTH OF STRING INPUT 

The string read was longer than the string variable has room for. 
This sometimes happens if a string ends in exactly column 80 of a 
card, and another string "begins in coliamn 1 of the next card, since 
the two quote marks (col 80 and col l) are part of the same string. 
Put at least one blank in between (or a whole blank card) . Also, 
check for a missing quote. 

ln/log error 

An attempt to take the logarithm of a negative or zero number. 

LOGICAL INPUT 

The quantity read was not TRUE or FALSE. 

NULL OR UTOEFINED REFERENCE 

An attempt has been made to access a record field using a nuJ.1 or 
never initialized reference. 

NUMERICAIi INPUT 

The number read was not assignment compatible with the variable in 
the READON or READ statement. This sometimes happens when running 
from a terminal if the line numbers on the data cards are accidently 
read. 

OVERFLOW 

A real operation produced a number whose absolute value is bigger 
then 7.2*+75 • This may occur when dividing by a very small number, 
such as in l'+50/l'-50 . 

PAGE ESTIMATE EXCEEDED 

The page estimate on the ^ALGOL card is exceeded. Note that any 
tracing ($DEBUG,5 or h) output is included in this page limit, 
(cf . Deck Setup and Compiler Options, page 103.) 

PROGRAM CHECK #nn 

The compiler or the code it generated was wrong. If this happens, 
take your card deck, exactly as it is, to a consultant. 
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READER EOF 

No more data cards. A ^ card or a /-^ card w^s read instead. This 
is a normal way to terminate in many programs. 

RECORD STORAGE AREA OVERFLOW 

No more storage exists for records. 

REFIS^ENCE INPUT 

References cannot be read. 

sin/cos ERROR 

See the domain restrictions in Section 8.2. 

SQ,RT ERROR 

Attempt to take the square root of a negative n'ujnber. 

STRING INRJT 

A null string or a string greater than 256 characters was read. See 
LENGTH OF STRING INHJT above. 

SUBSTRING INDEXING 

Substring selected extends off one end of the string 

TIME ESTIMATE EXCEEDED 

The time estimate on the tojGOL card is exceeded. 

U¥DERFLOW 

A real operation produced a number whose absolute value is less than 
5.^+' -79 , but not exactly zero. This may occur when dividing by a 
very large number, such as in l'-50/l'+50 . 
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ABEND Messages 

You may occasionally get terse messages on the first page of your 
output of the form: 

^^ ABNORMAL JOB END ^^ SYSTEM CODE X xxx 
or 

COMPLETION CODE - SYSTEM = xxx 
where xxx might be: 



222 
322 ) 
722 

OCl 

OCi+ > 

0C6 
J 



You ran out of time or lines as specified on your 
JOB card (not the limits on the ^ALGOL card) . 
(cf. page 105.) 

The compiler probably made a mistake. After 
verifying that the deck or catalogued procedure 
includes both a //SYSPRINT and //SYSIN DD card^ 
take your deck, exactly as it is, to a consultant. 



87 



NOTES ON NUMBER REPRESENTATION 

ON SYSTEM/360 

AND REUTIONS TO ALGOL W 

by 

George E. Forsythe 



88 



NUMBER REPRESENTATION 



88.1 



NUMBER REPRESENTATION 



The following notes are intended to give the 
student of Computer Science 105 or 106 some orientation 
into hov numbers are represented in the IBM System/560 
computers. Because we are using Algol W, some refer- 
ences are made to that language. However, very little 
of what is said here depends on the peculiarities of 
Algol W, and this exposition is mostly applicable to 
Fortran or Algol 60 with slight changes in wording. 
It will also do for the floating-point numbers and 
full-rword integers of FL/lo Users of shorter or 
longer integers or decimal arithmetic in PL/1 will 
need more orientation. 
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89.1 



NUMBER EEPRESEl^ATION 



On IBM's system 36o, the following units of information storage 
are used: 

a) the bit, a single or 1 

b) the bybe, a group of eight consecutive bits 

c) the (short) word , a group of four consecutive bytes — 
i.e., 52 consecutive bits 

d) the long word , a group of two consecutive short words — 
i.e., eight bytes or 6h bits. 

For number, representation in Algol W the words and long words are 
the main units of interest. 

INTEGERS 

Integers are stored in (short) words. Of the 52 bits of a short 
word, one is reserved for the sign (O for + and 1 for -), leaving 
51 bits to represent the magnitude. A positive or zero integer is 
stored in a binary (base 2) representation. Thus 21 (the subscript 
means base 10) is stored as 

0000 0000 0000 0000 0000 0000 0001 0101 . 

t 

sign bit 

To confirm this, note that 

^0 ^ k ^ 2 10 

21 =0x2-^^+ ... + 0x2-^+1x2 +0x2-^+1x2+0x2+1x2^ 

The largest integer that can be stored in a word is 

2^0 + 2^5 + ... + 2^ + 2*^ = 2^^ - 1 = (211^7^^8561^7) 10 • 

51 
Any attempt to create or store an integer larger than 2 - 1 will 

produce erroneous results, and (unfortunately)' the user will not always 

be warned of the error. (See below.) 

To save space in writing words on paper, each group of four bits 

in a word is frequently converted to a single base-l6 (hexadecimal) 

digit, according to the following code: 
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base 2 



base 16 



base 2 



base 16 



0000 





1000 


8 


0001 


1 


1001 


Q 


0010 


2 


1010 


A 


0011 


5 


1011 


B 


0100 


k 


1100 


c 


0101 


5 


1101 


D 


Olio 


■ 6 


1110 


E 


0111 


7 


mi 


F 



Thus A, B, C, D, E, F are used as base-l6 representations of the decimal 
numbers 10, 11, 12, 15, 1^, 15 respectively. Nevertheless, integers are 
stored as base-2 numbers. 

Using hexadecimal notation, the decimal number 21 is represented by 
00000015-j_^ . 

Note that l^n^r is the base-l6 representation of 21 . 

Negative integers are stored in what is called the "two's complement 
form" . For example, -1 is stored as 

1111 1111 nil nil nil nil iiii iiii , 

= FFFFFFFF, ^ . 
Also, -21 is stored as 

nil nil nil nil iin nil iiio ion 

= FFFFFFEB^ . 

The representation for -21 is obtained from that for +21 by changing 
every to 1 and every 1 to 0, and then adding +1 in base-2 arithmetic 
to the result. Similarly for any negative integers. Every negative 

integer has 1 as its sign bit. The smallest integer storable in 

"51 
System/360 is -2-^ = -21^+7^1-856^8 , and is represented by 80000000^ . 

Another way to think of the representation of negative numbers is 

to consider a 52-place binary accumulating register (the base-2 equivalent) 

of the decimal accumulating register in a desk calculating machine) . 

If one starts with all zeros in this register, one gets the representation 

for -1 by subtracting 1. The process requires a "borrow" to propagate 

to the left all the way across the register, leaving all ones, Just as 

on a decimal accumulator this would leave all nines. Continued 

subtraction win give the representations for -2, -5, ••• . 
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From the point of view of an accumulator we can also see what 

51 
happens when we create a positive number larger than 2 -1. For 

31 
example, if we add 1 to 2 -1, the resulting carry will go all the 

way into the sign bit, leaving a sign bit of 1 with all other digits 

31 
zero. But this is the representation of -2 . Thus the attempt to 

31 ' 32 

produce positive numbers in the range from 2r to approximately 2 

will yield a negative sign bit. Consequently^ positive integers that 

"overflow" into this range are sensed as negative by System/360. The 

m.echanisms of AIJ3-0L W for detecting integer overflow (not described in 

this docum.ent) can be used to detect additions, subtractions, or 

31 
multiplications that produce integers outside the range from -2/ to 

31 
2 -1 (so-called integer overflow ) . Attempts to divide an integer by 

will yield an error message and an irrelevant quotient and remainder. 

The behavior of System/360 on integer overflow is quite different 

from the Burroughs B5500. In the latter m.achine, any integer that 

overflows is replaced by a rounded floating-point number. There are 

advantages to either approach to integer overflow, depending on the 

application. 

If the user suspects that integers in his program are getting 

9 
anywhere near 10 , he should convert them to double-precision floating- 
point numbers by use of the Algol V/ operator LONG. Conversion to single- 
precision floating-point numbers may lose some precision. 

The m.ost important thing for a scientific user to remem.ber is that 

31 31 

integers in the range -2 to 2 -1 are stored without any approximation. 

Moreover, operations on integers (adding, subtracting, multiplying) are 

done without any error, so long as all intennediate and final results 

31 31 
are integers between -2:. and 2"^ -1. It is perhaps easier to remember 

9 9 

as safe the interval from -2 x 10 to 2 x 10 , obtained from the 

10 . 3 
useful approximation 2 = 10 . 
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The operations of division without remainder (called DIV in Algol W) 
and taking the remainder on division (called REM in Algol W) always give 
integer answers. If the divisor is 0^ an error message is given. 

In Algol W two operations on integers give results that are not 
stored as integers -- namely / and ^-^ . 

FLOATING-POINT NUMBERS 

Numbers in many scientific computations will grow in magnitude 
well beyond the range of integers described above. To provide for 
this, System/360 and most scientific computers have a second way to 
represent numbers -- the so-called float ing - point r epr es ent at ion . 
The significance of the name "floating-point" is that the radix point 
-- for example, the decimal point in base-10 numbers -- is permitted to 
float to the right or left, thus permitting scaling of numbers by 
various powers of the radix. Although a decimal point that has floated 
off to the left will produce a number written like 0.0013^5 i "the 
numbers are actually represented in a form closer to what is often 
called scientific notation , here 1.5^5x10 

In System/360, floating-point numbers are always represented in 
base-l6 notation; i.e., the radix or number base is I6. This permits 
us to write numbers in abbreviated form (as we did with integers earlier) . 
More important, the use of base-l6 conforms with the hardware arithmetic 
processes in which shifting is done four bits at a time to speed up the 
operations. The speed-up is achieved at a slight cost in precision, 
as is learned from detailed error analyses which we cannot go into here. 

We first consider the floating-point representation of numbers by 
a single word of 52 bits. This is the so-called single - precis ion 
or s hort real nimber, the number of type REAL in Algol W. The 52 bits 
of a word are numbered from to 51^ from left to right, just to identify 
them. In floating-point representation the left-hand eight bits (bits 
to 7^ equivalent to two hexadecimal digits) are devoted to the sign of 
the number and the exponent of I6 associated with the number. The right- 
hand 2k bits (bits 8 to 51^ equivalent to six hexadecimal digits) 
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represent six significant hexadecimal digits ( the significand ) of the 
number . 

As with integers, the sign of the number is denoted by bit 0, 
with representing + and 1 representing - . 

Bits 1 to 7 give the binary (base-2) representation of a non- 
negative integer in the range to 12? -.pv > inclusive. This in- 
teger is called the biased exponent , for reasons now to be explained. 
If this integer were taken directly as the exponent, we would have no 

negative exponents, and our range of floating-point numbers could not 

-25 
include such numbers as l6 . It is desirable to have an exponent 

range that is approximately symmetric about zero. In System/360 one 

obtains the true exponent of the floating-point number by subtracting 

Gh from the biased exponent represented by bits 1 to 7* As a result, 

the actual exponents range from -Gh to 63. 

The 2h bits 8 to 31 of a number are regarded as six hexadecimal 
digits with a hexadecimal point at the left-hand end. If the floating- 
point number zero is being represented, all the hexadecimal digits are 
zero, as are all the other bits. Otherwise, at least one of the hexa- 
decimal digits must be nonzero. A floating-point number Is said to be 
normalized if the lef^-hand hexadecimal digit (the most significant 
digit) of the significand is nonzero. In System/360 the floating-point 
numbers are ordinarily normalized, and we will not consider any other 
forms. 

We now give the floating-point representations of some sample 
numbers. As we said before, the number zero is represented by 32 zero 
bits, i.e., by eight hexadecimal digits. Thus zero is represented 
by the same words in floating-point or integer form. No other number 
has this property. 

The number 1.0 is represented by the word 

sign bit 

» .100 0001, .0001 0000 0000 0000 0000 QQQQ^ . 

biased significand 

exponent 
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To check this, note that the sign is (representing +) . The biased 
exponent is 1000001 or 65.,^ . Subtracting 64' yields 1 as the 
true exponent. The hexadecimal significand is 100000^/- . Patting a 
hexadecimal point at the left end gives the hexadecimal fraction 
.100000^ , which equals I/16. Thus the above word represents 
+ 1/16 times 16 , or 1.0 . 

To save writing, the above word is ordinarily written in the 
hexadecimal form i|-1100000 . While one gradually learns to recognize 
some floating-point numbers in this form, the author knows no easy way 
to convert such a hexadecimal word into a real number. One Just has 
to take the right-hand six hexadecimal digits, and prefix a hexadecimal 
point. Then one examines the left-hand two -hexadecimal-digit number 
(here hi). If this is less than 80 ^ , the floating-point number is 
positive and one gets the true exponent by subtracting ^-i^ = ^So * 
If the left-hand two -hexadecimal-digit number is 80^/- or larger, the 
floating-point number is negative, and one gets the true exponent by 
subtracting CO ^ = ^i^^ "^ ^1^ "^ "^^^in ^^^ affixing a minus sign. 
Some facility with hexadecimal arithmetic is required, if one has to 
deal with such numbers. 

In this presentation, we have considered the radical point to be 
at the left of the six significant hexadecimal digits, and regarded 
the exponent as biased high by 6^4- . As an alternative, the reader 
may prefer to place the radix point just to the right of the most 
significant digit of the significand, and regard the exponent as biased 
high by 65.,,. • This brings the significand closer to usual scientific 
notation but, of course, requires a trickier conversion to get the 
true exponent. The fact that either intei^retation (and many others) 
are possible shows that really the radical point is just in the e^e of 
the beholder, and not in the computer! 

Several examples of floating-point numbers are now given in hexa- 
decimal notation, with the confirmation left to the reader. 
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decimal floating-point 

0.0 = 00000000 

1.0 = UllOOOOO 

0.0625 = UO 100000 

16.0 - i^2100000 

256.0 = i+5100000 

-1.0 = CllOOOOO 

-16.0 = C 2100000 

5.5 = U158OOOO 

The largest floating-point number is 7FFFFFFF , representing 
.FFFFFF X 16^^ or (1 - I6" ) x l6^'^ =7-25 x 10'''^ . (Here 10 and I6 
denote decimal numbers.) 

The smallest positive normalized floating-point number is 00100000, 
representing 

^ X 16-^^ = 5.to X 10-^9 

Negatives of these two numbers can also be represented, and are 
the extremes in magnitude of representable negative numbers. 

Very few numbers can be exactly represented with six significant 
decimal digits. ( Exercise : Which ones can?) For example, l/5 = .553335 
only approximately. In the same way, very few numbers can be exactly 
represented with six significant hexadecimal digits. ( Exercise : 
Which ones can?) For example, l/3 = •555555-./^ only approximately. 
Moreover, some numbers that are exactly representable in decimal are 
only approximately representable in hexadecimal; for example, 
1/10 = .100000 exactly; but 

1/10 = .19999-^-1/' only approximately. 

Thus round - off error enters into the representation of most 

floating-point numbers on System/360, and the round off differs from 

that with decimal numbers. This can easily give rise to unexpected 

results. For example, if the above number .19999A^ ( = 0.1 ) is 

multiplied by the integer 100^^ = 6^4- w- , one gets not A. 00000^ = 

10.0-.^ , but instead A, 00003-./- , as a cumulative effect of the slightly 

high approximation to 0.1 . And A. 00003-,/' rounds to 10.00002 

on conversion to decimal. 

The precision of a single-precision hexadecimal number is roughly 
_7 
10 . One can think of this as being crudely equivalent to seven 
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significant decimal digits. 

Not only do errors appear in the representation of numbers inside 
System/360 (or any computer), "but they arise from arithmetic operations 
performed on numbers. For example, the product of two floating-point 
numbers may have up to 12 significant hexadecimal digits. When the 
product is stored as a single -precis ion floating-point number, it must 
be rounded to six hexadecimal digits. This introduces an error, even 
■though the factors might have been exact. 

The story of round off and its effect on arithmetic is a complex 
and interesting one. Only within the current decade have there begun 
to appear even partly satisfactory methods to analyze round off, and 
we cannot go into the matter now. Some idea of this is obtained in 
Computer Science 157- 

When an Algol W program assigns decimal niombers or integer values 
to variables of type REAL, these are immediately converted to hexadecimal 
floating-point numbers, with (usually) a roimd-off error. When one 
outputs numbers from the computer in Algol W, they are converted to 
decimal. Both conversions are done as well as possible, but introduce 
changes in the numbers that the programmer must be aware of. And, of 
course, all intermediate operations introduce further round offs and 
possible errors. It is unthinkable to do the analysis necessary to 
counteract these errors and get the true answer to the problem. If the 
user wishes answers uncontarainated by round off, he should use integers 
and integer arithmetic, and be prepared to guard against overflow. 

Fortunately most users can accept an indeterminate amount of 
round off in their numbers, provided they have some assurance that 
round off is not growing out of control. It is the business of numerical 
analysts to provide algorithms whose round-off properties are reasonably 
under control. This has been well accomplished in some areas, and hardly 
at all in others. 

DOUBLE PRECISION 

The precision of single -precis ion floating-point numbers seems 
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very adequate for most scientific and engineering purposes, being at the 

level of seven decims^ls. However, a considerable number of computations 

require still more precision in the middle somewhere, just in order to 

come out with ordinary accuracy at the end. As a result, System/ 5 6o 

has provided an easy mechanism for getting a great deal more precision 

in the computations. For this purpose a double word of 6h bits is used 

to store a floating-point number of so-called double precision or long 

precision . In this representation, the sign and biased exponent are 

found in ti^e first word of the double-word, with precisely the same 

inte37preta,tion as- with single-precision floating-point numbers. The 

second worcj of the double-word consists of eight hexadecimal digits 

immediately following the six found in the first word. 'J'here is no 

sign or exponent in the second word. Thus a double-word represents 

a signed floating hexadecimal number with ik significant hexadecimal 

digits. As before, nonzero numbers are normalized so that the most 

significant digit of the ik is nonzero. 

Examples : 

long significand 

/ ' — s 

l.OL. = ia 100000 00000000 

O.IL =1+0 199999 9999999A 

There is a full set of arithmetic operations for both single 
and double-precision operations. Very crudely, for an example, single- 
precision multiplication of single -precis ion factors takes around h micro- 
seconds, while that for double-precision factors takes around 7 micro- 
seconds. For modest problems the extra time is completely lost in the 
several seconds of time lost to systems and compilers, and the use of 
double -precis ion is strongly recommended for all scientific computation. 
Normally the only possible disadvantage of using long precision is the 
doubling in the amount of storage needed. If one has arrays with tens 
of thousands of elements, the extra storage may be very costly. Other- 
wise, it should not matter. 

-l-h . -17 
Since l6 =10 , the double -precis ion numbers are crudely 

equivalent in precision to 17 significant decimal digits. 

For a machine with the speed of the 360/67, a number precision of 
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six hexadecimal digits (roughly seven decimals) is considered very loW;, 
while a precision of lU hexadecimal digits (roughly 1? decimals) is 
very adequate. The floating-point arithmetic hardware of System/560 
provides the possibility of detecting when numbers have gone outside 

the exponent range stated above. The reader may think that a range 

-79 75 
from roughly 10 '^ to 10 should cover all reasonable computations. 

While Exponent overflow and exponent underflow are not very common, they 

can be the cause of very elusive errors. The evaluation of a determinant 

is a common computation, and for a matrix of order ii-0 is quite rapidly 

done (if you know how) . If the matrix elements are of the quite 

reasonable magnitude 10 , the magnitude of the determinant will be 

-00 

no larger than roughly lO"'^^ (and probably much smaller), well below 
the range of representable floating-point numbers. Such problems are 
a frequent source of exponent underflow. 

We shall not discuss here the raectianisms of Algol W for detecting 
exponent overflow and underflow, for these should be written up in 
smother place. Even without these, we see that floating-point numbers 
behave well for numbers that are at least 10 tjjnesas large a;^ ttie 
largest integer in tlie system! Hence use of floating-point nutnbc^rs 
meets almost all the problems raised by integer overflow. And, of 
course, it peimits the use of a large set of rational numbers, which 
do not even enter the integer system. 

ALGOL W REALS AM) LONG REALS 

The- Algol W manual tells how to represent real variables and 
numbers to take advantage of both single-and double-precision. The 
purpose of this section is to bring this information into rapport with 
the hardware representation of numbers. If a variable X is declared 
REAL, one word is set aside for its values, and it will be stored in 
single-precision floating-point form. If a variable is declared to be 
LONG REAL, a double -word is set aside to hold its values, and it will 
be stored in double-precision form. 
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If a n-umber is written in one of the decimal fomis without an L 
at the end, it will be chopped to single -precis ion, no matter how many 
digits are set down. Thus 5.1^15926555897932 will be ijnmediately 
chopped to single-precision in the program, and all the superfluous 
digits are lost at once . Thus the assignment statement 

XX := 5.1^15926555897952 
will result in the double-word XX receiving an approximation to rr 
in the more significant half, and all zeros in the less significant 
half I Thus one gets a precision of only approximately seven decimals 
for the pain of writing I7, and this may well contaminate all the rest 
of the computation. 

If one wants XX to be precise to approximately full double precision, 
one must write the statement in the form 

XX := 5. 1^1592655 5897 952L . 

With the declaration REAL X, the statement 
X := 5.1^159265558979521 
will result in X having a single-precision approximation to tt, as 
the long representation of tt is chopped upon assignment to X. 

The reader should now go back and examine the specifications 
of the types of various arithmetic expressions, as stated on pages 9^ 10^ 
11 of the Algol W Notes , and in Section 6.5 of the Language Definition . 
Some of the less expected effects are the following: Suppose we have 
declarations 

REAL X, Y, Z; 

LONG REAL XX, YY, ZZ; 

INTEGER I, J, K; 

Then X^Y, I^J, and I^X are all long real. 

The assignment statement 
XX := X := Y-^Z 
will result in XX having a single -precis ion chopped version of Y-^Z in 
the more significant half, and zeros in the less significant word. 

Moreover, I^I is INTEGER, but I^^2 is LONG REAL. 
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If the reader understands the language Algol W and the preceding 
pages on number representation, he should have a good basis for 
understanding the effects of mathematical algorithms. But he should 
always remain wary of what a computer is actually doing to his n\amberst 
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1. DECK SETUP 



ALGOL W Deck Setup and Compiler Options 



1. Simple Deck Setup 



Q.UICK partition 

(Job and Keyword cards) 
1"^ SERVICE CLASS=Q 
// EXEC ALG0LV7 
//SYSIN DD * 
§[ ^GOL 

(program) 

\^ (data) 



§§ < 



§§ 



BATCH partition 

(Job and Keyword cards) 

// EXEC ALGOLS 
//SYSIN DD * 
§[ ^GOL 

(program) 
C foDATA 
\ (data) 



§ Optional. 

§§ May be repeated — second and following ^toGOL cards are 
required. 

For simple cases, the above control cards are sufficient. More 
complicated cases are discussed later under 5. Linkage to Separately- 
Compiled Procedures . 

1.1 Time and Page Limits 

To avoid using too much computer time or paper when a program has 
mistakes in it;, both the operating system and the ALGOL W system monitor 
the amount of time and pages used. The operating system keeps track of 
the tcrbal time used for compiling one or more programs, executing them, 
printing any post-mortem dumps, loading the compiler into core, interpreting 
the operating system control cards, etc. The operating system also keeps 
track of the total amount of printed output from a run — control card 
listing, compiler listing, actual execution output, error messages. 
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post-mortem dvunp, etc. The limits for these totals are specified on 
the JOB card in tenths of minutes and thousands of lines; exceeding these 
JOB card limits results in an ABEND 522 message from the operating 
system and no other information. 

The ALGOL W system monitors the amount of time and pages used by 
each program Just during its execution, not during its compilation or 
during any post -processing. If these execution limits are exceeded, 
ALGOL W will print a run -time error message (TIME ESTIMATE EXCEEDED or 
PAGE ESTIMATE EXCEEDED) with the coordinate of the program statement 
executing at the time. The subsequent post-mortem dump and optional 
program listing can be very helpful in determining what went wrong. 
To make sure that the ALGOL W system is able to get out this information, 
the JOB card limits always should be sufficiently bigger than the ALGOL W 
limits. 

The normal ALGOL W execution limits are 2D seconds and 9 pages 
(60 lines/ page) . These may be changed by specifying different limits on 
the ^toGOL card in columns 8-29: 

^GOL TIME=s s s , PAGES =ppp 
where sss is the maximum execution time in seconds; ppp is the maximum 
number of pages of execution and tracing output. TIME may be abbreviated T ; 
PAGES, P . Time and Pages may be given in either order. 

Example ; for 2 minutes and 20 pages, use: 

^GOL T=120,P=20 
(Previous versions of the compiler had slightly different control cards: 
"fcOF instead of ^ATA, and min: sec, pages instead of TIME= and PAGES= . 
These older conventions are also accepted by the present compiler.) 
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1.2 Other "^toGOL Card Parameters 

Two other execution environment options may appear on the ^toGOL 
card. MARGIN=72 specifies that READ and READON sho\ild only scan the 
first 72 columns of data cards. MARGIN=80 specifies that READ and READON 
should scan all 80 columns of data cards. The default value is MARGIN=8o, 
unless the program source cards are sequence numbered; in that case, it 
is assumed that the data cards are also sequence numbered and MARGIN=72 
is the default. MARGIN may be abbreviated MARG. (cf. Section 7.8.U. 
for dynamic control of this margin.) SIZE=xxxK specifies that the 
maximum amount of dynamic space requested by either the compiler or the 
execution library is xxx*102i|- bytes. This directive is only used in 
rare cases to prevent the compiler from using all of the core available 
to it. 

TIME, PAGES, MARGIN, and SIZE may be specified in any order. 
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2. Compiler Options 

Any of the following cards can appear in a deck between a '^ALGOL 
and the next ^ard: 



$NOLIST 

$LIST 
$TITLE/'..." 

ISYETAX 
$STACK 

^DUMP^ah^ cc 



$NOCHECK 



$DEBUG,n(m) 



Do not list subsequent source cards. The compiler normally- 
lists all input cards. 

List subsequent source cards: this undoes a previous $NOLIST. 

Start the program listing on the next page, and place 
"..." (up to 30 characters) as a title in the middle of 
the heading line. 

Analyze the program for syntax errors, but do not execute. 

Dump the current parsing stack if a pass 2 syntax error should 
occur, with the most recent syntactic element listed last. 

Dump certain internal tables during a compilation. This 
option in general is used only by those maintaining the 
compiler, but is documented here for the sake of completeness. 
Since its use significantly increases the amount of printed 
output for even small compilations, random experimenting is 
discouraged. See the table at the end of this section. 

Omit checking subscript ranges and reference compatibility 
and omit initialization of variables to 
"undefined" . 

Activate the tracing, statement counting, and post-mortem 
d-ump facilities of the ALGOL ¥ system. 

The single digit n specifies: 

nothing fancy (use this to minimize the space used by 
the system) . 

1 a post-mortem dump of all the program's variables if 
execution terminates abnormally, else nothing. 

2 the above plus counts of how often each statement was 
executed. 



10^ 
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3 the above plus a statement -by- statement trace of each 

value stored. 
h the above plus a trace of each value fetched. 

If tracing is specified ($DEBIJG,5 or $DEBUGA) and the standard 
procedure TRACE (cf. Section 7.8.6.) is not used, then 
each ALGOL statement will be traced in symbolic form the 
first m times it is executed. Each time a statement is 
traced, it produces at least two lines of output (included 
in the run-time limit), so a 100 statement program with 
$DEBUG,5(2) will produce at least iK)0 lines of output 
(unless it dies an early death) . 



THE DEFAULT IS $DEBUG,1 -- post-mortem dump, but no counts 

or traces. 



The following abbreviated control cards are acceptable: 

$DEBUG for $DEBUG, ^^ ( 2 ) 

$DEBUG,x for $DEBUG,x(2) 

(no DEBUG card) for $DEBUG,1 

All variables are initialized to a bit pattern considered 
to represent an undefined value (printed in the traces and 
post-mortem dump as "?" ) . For some data types, all bit 
patterns can be valid, so valid data can appear to be 
undefined. 



See Section h, page 111, for a detailed explanation of the debugging 
facilities • 
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$NORM,a,'b Activate the floating-point significance tracing facilities 
of Algol W. This facility interprets the operation of each 
floating-point add and subtract executed by the program^ 
counting the nimbervof base l6 digits of preshift and postshift 
If these shifts exceed the limits specified by a and b 
respectively^ then a one-line SIGNIFICANCE ERROR message is 
written. This facility allows the user to examine inaccuracies 
in his computer results which are due to either 

(l) adding/ subtracting numbers of widely varying sizes, 

involving large pre-alignment shifts,. 
or (2) effectively subtracting numbers which are almost equal, 

involving large post -nonnalizat ion shifts. 

The parameters a and b are one- or two-digit numbers in 
the range O-I6. Preshifts > a or postshift s > b will cause 
a significance error. The table below is a summary of the 
hardware and interpreter meanings of the shift counts ("larger" 
and "smaller" refer to absolute values of the operands, and 
"digit" refers to a base I6 digit) . 



preshift 



REAL operands 



LONG REAL operands 




1-5 



8-13 



Ik, 



15 



16 



Trace all add/ sub. 

Trace if more than a few 
digits of smaller operand 
are lost . 

Trace if only one digit of 
smaller operand is retained 
as guard digit, or none at 

all. 

Trace if operands are incom- 
mensurate; result is larger 
one. 

Tracing off. 



Tracing off. 



Tracing off. 



Tracing off. 



Trace all add/ sub. 

Trace if more than a few 
digits of smaller operand 
are lost . 

Trace if more than a few 
digits of smaller operand 
are lost . 



Trace if more than a few 
digits of smaller operand 
are lost. 

Trace if more than a few 
digits of smaller operand 
are lost . 

Trace if only one digit of 
smaller operand is retained 
as guard digit, or none at 
all. 

Trace if operands are incom- 
mensurate; result is larger 
operand . 

Tracing off. 
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REAL operands 



6 

7 

8-13 

11+ 



15 
16 



Trace all add/ sub. 

Trace if post-nonnalize by- 
more than a few digits. 

Trace if only digit of 
result is guard digit or 
result is 0. 

Trace if result is exactly 
0. 

Tracing off. 



Tracing off. 

Tracing off. 
Tracing off. 
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LONG REiUL operands 



Trace all add/ sub. 

Trace if post -normalize by 
more than a few digits . 

Trace if post -normalize by- 
more than a few digits . 



Trace if post -normalize by 
more than a few digits. 

Trace if post-nonnalize by 
more than a few digit s . 

Trace if only digit of 
result is guard digits or 
result is 0. 

Trace if result is exactly 

Tracing off. 



FOR A ROUGH LOOK AT A NUMERICAL PROGRAM, $NORM,5^5 IS 
RECOMMENDED . 



If a significance error occurs, the following message will be 
printed: 

PRESHIFT 



^^ SIGNIFICANCE ERROR NEAR xxx DT yyy: 1111 + 2222 



POSTSHIFT 



zz ^^^^ 



where xxx is the coordinate number of the statement being 
executed. 

yyy is the name of the procedure being executed. 

1111 is the first operand, in decimal. 

2222 is the second operand, in decimal. 

+ is + for a floating-point add, - for a subtract . 

zz is the n"umber of base l6 digits actua3J.y shifted. 

To keep the amount of printed output meaningful, the message 
will be printed only for the first 10 times that a significance 
error occurs at each coordinate. The tenth message will have 
three dots instead of the last three asterisks. The limit of 
ten messages can be changed during execution via the standard 
procedure TRACE (cf. Section 7*8.6), allowing the user to turn 
off the: significance checking in part of a program and then to 
turn it on again. 
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For each coordinate, a count is kept of how many significance 
errors have occurred in that statement. These counts are 
printed as a small table at the end of execution. The table 
has a maximum of ^9 entries, plus one overflow entry that 
totals all lost counts as occuring at coordinate 0000 . Any 
individual count greater than 6^55^ is printed as "65535+"- 

Overhead: Using this facility increases the size of the m.achine 
code generated by about 3^ to 5^ (8 bytes for each floating 
add/ sub) . The interpreter slows down the execution of each 
floating add or subtract by about a factor of 100, but in 
typical programs, the overall slowdown will only be a factor 
of 2 or 5- If TRACE (O) is used to turn off the interpretation 
except in selected portions of a program, the increase in 
execution time can be as low as 10^. 

Restrictions: 

(1) When actually source tracing with $DEBUG,3 or k , 
floating-point operations will not be interpreted. Wlien 
the $DEBUG interpreter is not operating (typically after 

a statement has been executed twice), then the significance 
interpreter can. 

(2) This facility cannot be used with $DEBUG,0 or with 
separate compilation, linkedit, and execution. 



105.5 



2. COMPILER OPTIONS 

$DUMF(- options 

The $DUMP^ card specifies two things: what tables to be dumped, and 
which segments in the program the d-umping applies to. For example, the 
360 machine code for only one of many procedures can be dT;miped. 

General format: 

$DUMP^ab, cc 

a is a single digit and is ignored. 

b is a single digit and asks for some combination of 5 tables to be 

dumped. 

cc is exactly two digits --a niimber in the range to 65, or two blanks. 
If cc is blank, then tables for all segments will be dumped. 
If cc is a number, then the machine code for only that segment will 
be dumped. Many $DTIMP^ cards may be used to specify more than one 
se^ent. If the b digits are different, the last one is used. 





tables 


dumped: 










b digit 


pass2 
parse tree 


pass2 
nametable 


pass2 
edit code 
(hex) 


pass 3 

360 code w/ some 

addresses missing 


pass3 

560 code w/ most 

addresses inserted 



















1 














X 


2 












X 


X 


5. 








X 








h 








X 






X 


5 








X 




X 


X 


6 


X 






X 








7 


X 






X 


X 




X 


8 


X 






X 


X 


X 


X 


9 


X 






X 


X 




X (same as 7) 
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5. Linkage to Separately -Compiled Procedures 

ALGOL W provides a facility for pre -compiling procedures and linking 
them back together again. For small programs, it is not worthwhile to 
use this facility, since re-compiling a procedure may be faster than 
punching an object deck and reading it back in. A facility is provided 
for generating standard IBM linkages for calling FORTRAN programs • 

3.1 Compiler Organization 

As shovm in the diagram below, there are actually two versions of the 
ALGOL W compiler; both versions use exactly the same code for the various 
phases of the compiler and for the run-time library, but the monitor 
phase is slightly different. The compile, load, and go incore version 
is called ALGOLW; it can handle object decks only in a crude way, but 
its in-core loader handles the debugging feature information. The 
compile only version is called ALGOLY; it produces standard OS/36o object 
decks, but cannot pass any debugging information (so $DEBQG,0 is forced) . 
The output from ALGOLY can be link- edited with other object decks or load 
modules, including those produced by Fortran G or H. In order to be 
executable, the object decks from ALGOLY must be link-edited or loaded 
with the ALGOL library and with the ALGOL run -time monitor (ALGOLX) . To 
facilitate this, all object decks for ALGOL main programs include 
external references to the monitor and to the library. 

The restricted object deck facility for the compile, load and go 
version only handles: 

1) object decks 

2) of procedures (not main programs) 

3) from ALGOL W 

h) run with no debugging features ($DEHJG,0) . 
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If a procedure declaration is compiled and a //SYSHJKCH DD card is 
supplied, then an OS/560 object deck for that procedure is pr^oduced, Th: 
deck can then be used with the link-editor or OS/560 loader as above, or 
it can be read back into the compile, load, and go system when the main 
program is compiled. For this piarpose, the deck setup is extemded to: 



§[ ^GOL 

$DEBUG,0 (must be specified) 
(main program) 

f Object 

l^ (procedure object deck(s)) 
(^ (data) 



§§< 



^ 



§ Optional. 

§§ May be repeated — second and following ^toGOL cards 
are required. 
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COMPILE, LOAD, and GO INCORE 



COMPILE and use OS/560 
LOADER or LINKED ITOR 




INCORE OBJECT CODE 
AND DEBUG INPO 



ALGOLW 
OBJKJT DECKS 



/ ALGOLW ^ 
V LIBRARY, 



I Source j 



COMPILER 
(ALGOLY) 



EXECUTION 



OS/560 
OBJECT DECK 



OTHER ALGOLW 
OBJECT DECKS 



ALGOLW \ 
LIBRARY I 
and MONITOR j 
(ALGOLX) / 




yy t 




OS/560 LOADER 
or LINKEDITOR 



EXECUTION 



FORTRAN 
OBJECT DECKS 



} 



FORTRAN 
LIBRARY 
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3.2 Control Cards for Using OS/360 Loader 

Three catalogued procedures are provided: ALGOLCG, ALGOLC, and 
ALGOLG, for compile and load, compile only, and load only respectively. 
In all of them, the object decks are passed in the same way that 
Fortraji object decks are passed, so (for instajice) ALGOLC and FORTHC can 
be intermixed and followed by ALGOLG. The stepnames are COMP and GO. 
Parameters given on a '^^GOL card are not passed to the GO step; instead, 
the EXEC card parameter field is decoded the same way. 

Example : 

//STEPA EXEC ALG0LCG,PARM.G0=»MAP,EP=ALG0LX/TIME=5,PAGES=15» 

5.5 Calling External Procedures 

In a program which calls an external procedure, a dummy procedure 
declaration and body are used to establish the proper correspondence 
(cf. Section ^,^,2.k). The symbols algol and fort ran in that dummy body 
indicate the use of ALGOL W and standard IBM linkages respectively; the 
associated string is extended (with blanks) or truncated to eight characters 
and is used as the entry point name of the external procedure. For a 
FORTRAN external procedure, the entry point name is just the name of the 
FORTRAN subroutine or function. For an independently compiled ALGOL W 
procedure, the entry point name is the procedure identifier extended 
(with " # "s) or truncate!^ to five characters and followed by "001" . 
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Example ; 



first 
ccanpilation 



^ INTEGER proceduhe mypuncteonCreal VAIUE X); 

BEGIN INTEGER I; 






Vv 



I 
END. 



second 
compilation 



BEGIN 

INTEGER K,L,M; 
REAL A,B; 

INTEGER PROCEDURE YOURFIINCTIONCREAL VALUE Y) ; 
ALGOL "MYFUNOOl"; 



. 



K := YCURFUNCTION(A); 



V. 



END. 



A FORTRAN subroutine or subprogram can be used as an* ALGOL W procedure. 
The type correspondence between ALGOL W and FORTRAN is given by the 
following table: 



ALGOL W 


IBM FORTRAN IV 


integer 


INTEGER^^ 


real 


REAL^U 


long real 


REALMS 


complex 


CCMPLEX^S 


long complex 


C0MPLEX*l6 


logical 


LOGICAL^l 


string (n) 


(LOGICAL^n) 


bits 


LOGICAL-)(-U 


reference 





110.1 



SEPAEIATE COMPILATIONS 



String functions are not implemented. The following formal parameter 
types are allowed and are interpreted as indicated: 

(1) (sijnple T type) 

The corresponding actual parameter is examined. If that parameter 
is a variable, the address of that variable is computed (once only) 
and transmitted. Otherwise, the expression which is the actual 
parameter is evaluated, the value is assigned to an anonymous local 
variable, and the address of that variable is transmitted. 

(2) (simple T type) value , (simple T type) result , 
(simple T type) value result 

As in ALGOL W procedures, a local variable \mique to the call is 
created, and the address of that variable is transmitted. 

(5) (simple T'type) array 

The address of the actual array element with \mit indices in each 
subscript position is computed and transmitted, even if that element 
lies outside the declared bounds of the ALGOL W array. Arrays with 
only one dimension and arrays with unit lower subscript bounds will 
have elements with indices which are identical in ALGOL W and 
FORTRAN routines. Array cross-sections should not normally be 
used as actual parameters of FORTRAN subprograms. 

If FORTRAN input/ output or FORTRAN error handling facilities are ,to be 
used, the subroutine package IBCOM, or a suitable substitute, is required, 
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Example ; 



Algol W 
compilation 



BEGIN 

COMPLEX Z; 

COMPLEX PROCEDURE CQMPLEXSQRT (COMPLEX VALUE A); 
FORTRAN "FAKEIT"; 

Z := CQMPLEXSQRT(Z) ; 



END 



Fortran 
compilation 



"" RJNCTION FAKEIT (X) 
COMPLEX FAKEIT, X 
^ FAKEIT = CSQRT(X) 
RETURN 
END 
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h. Compiler Output 

U.l. Introduction 

The printed output of the compiler consists of five general 
categories: 

1) Source card listing 

2) Error messages 

3) Run-time and tracing output 
k) Statement counts 

5) Post-mortem dimip 

The amount of output in some of these categories can be controlled 
by various compiler options (cf . Compiler Options, page 10i^■) . 

1) $NOLIST, $LIST, $TITLE. 

2) No control. 

5) $DEBUG,5 or $DEBUG,^ activates the tracing.- The standard 
procedure TRACE (cf. Section J, 8, 6,) dynamically controls the 
tracing output. 

h) $DEBQG,2 , 5 or ^4- activates the statement counts. 

5) If a program terminates with a run error and $DEBUG,0 was not 
used, a post-mortem dump is produced. 

(in the explanation which follows, circled numbers are keyed to the 
circled numbers on the sample output.) 

1|-.1.1. Source Card Listing 



The source listing consists of four columns of output; 

a) Coordinate number (l) 

This statement count is incremented once for each semi-colon 
(except end-of -comment), BEGIN, or ELSE in the program. If there 
are many statements on &. card (^ , the coordinate listed refers 
to the first statement on that card. All error messages and 
tracing information are keyed to the coordinate numbers. 
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"b) Block nesting level (2) 

The nesting level counter is incremented by one for each BEGIN 
in the program and decremented by one for each END. The counter 
is printed only when it changes; then the first character in 
this column refers to the nesting level of the first BEGIN on 
the card, and the second character refers to the nesting level 
of the last END on the card. If you have the proper n-umber of 
BEGINS and ENDs, the nesting level for the last card should 
be 1 . 

c) Card image ('^j 

Columns 1-72 of each card are printed exactly as they were 
read. $ option cards are not printed. 

d) Sequence field (hj 

Columns 75-80 of each card are printed here, with eight spaces 
between column 72 (card jjnage) and column 75 (sequence field) (6^. 

The source card listing is followed by a line giving the options 
which will be in effect during the execution of the program (ba) . These 
include the debugging option (specified by a toEBUG card), the time limit 
in seconds, the page limit, the word NOCHECK if that option has been 
specified (cf. Section 2, Compiler Options), and the words MAIIGIN=72 if 
the initial right margin for READ, and READON is set at column 72 instead 
of 80. This last option is set if the source deck is sequence numbered, 
on the assumption that the data cards are also (cf. Section 7.8.H. for more 
details on margins) . 

i|.1.2. Error Messages (6b 



These are printed immediately after the source card listing and are 
further explained in the Error Messages section of this manual. 



k.l,^. Compile Time and Amoujit of Code (6c) 

The last line of the compilation gives the amount of time spent in 
the compiler and either the phrase NO CODE GENERATED if fatal error 
messages occurred, or the phrase (xxxxx, yyyyy) BYTES OF CODE GENERATED if 
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compilation was successful. xxxxx is the number of "bytes of /560 
machine language generated. yyyyy is the number of bytes of 
information generated for the debugging facilities: 

$DEBUG,n 

and above information included 

(i.e., always) Table relating coordinate numbers to program 

addresses, for creating RUN ERROR messages. 

1 Table of names and types of each variable used, for 
post-mortem dump and tracing. 

2 A compressed version of the source code, for the 
pseudo- listing . 

5,^ Additional editing markers in the compressed source 
code, for breaking the tracing at the proper points, 
and for more closely correlating the machine code 
■with the source code. 



^.l.if. Run -time and Tracing Output 

This category includes an optional statement-by-stateraent trace of 
the program as it executes (7) (explained in more detail below), any 
output that the program itself produces in WRITE and WRITEON statements {dj, 
and perhaps a run error message saying why the program tenninated \9j' 
If the tracing were turned off, the output would look like that on page 
118. 

U.1.5. Statement Counts 

This optional print-out consists of a pseudo-listing of the 
program (12) with coordinate numbers (iDj and counts of how many times 
each statement was executed (ll) . To determine how many times a particular 
statement was executed, follow the vertical bars straight up and to the 
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left until a niunber is encountered. For example^ the statement count 
for the IF at coordinate 0012 is found by following the bars up to 
coordinate 0005 f then up and left to the 6. on the preceding line; 
if this path goes through the statement where the program terminated 
prematurely (iS) t then subtract one from the count . Thus, the IF 
statement at coordinate 0012 was executed 5 times (true 1 time, false 
\ times) . The pseudo -listing has all the comments removed and is 
formatted to show the block structure of the program. You are encouraged 
to make use of the statement counting facility in order to better under- 
stand just where your program is spending its time . 

ii- . 1 . 6 . Post -Mortem Dump 

This error analysis aid (l^ shows the names and values of all 
variables which were active at the time the program stopped. By looking 
at the values of the variables used in the last statement executed (15) , 
it is easier to determine what (if anything) went wrong. The exact 
format of the dump is discussed below. 
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' iL&CL 



& 



(P (D 

0000 i- 

0001 — 
OOOl — 

oooi — 

0001 — 

0002 " 

0002 ?- 

0003 -- 
0003 — /TS 
000* — *^ 
O0O6 -r 

0006 3« 

0007 — 

0008 — 

0009 — 

0010 -I 

0011 ~ 

0012 — 
Q013 — 
9013 -2 

0013 -I 






(lfeJ«S72» 



19 J4NUARV 197? i 





21:5h 



PAGE 



COM««fNT P^OQ^i'* TO PTNO «VcP*Gfc Of GROOMS OF NUXBEKS. 
?NOS WITH TH? NU*«3EP -I; 



cACH GROUP 



IHTe'JtP SUH,COy»lT,^lU««?; 

wMILc TRiJ? 00 COMMSMT IffflP UNTIL IHPUT EXHASUTcO; 

BcGl'l 

COH^ENT THIS CAR3 HAS A SFOUENCE NU^teSR FISUO 

SU«« !• roOMT :■ '*; 

fSAOIIIKU^eiJ MRITEONtNtmBI; 

MMIL? NIJ*^-**-! 00 

SU'* :« SU»» ♦ NU^fl; 

COUHT t« COUNT ♦ I; 

REAOO«f!^UMBI; tMITfONINUMei 

E«IOS 
If COU»:T.-> THEN •*«|Tf("ENPTV G«OU^I ELSF 
N«IT?«"C<?'WT •.CnorjT,"SUi« •tSU««t'»AV5*«ef •tSdN/COUNri; 
lOCCNT^PLl?! 
CNO 
END 



->5 



© 



ABCD123«»«*» 



@ cKECUTIQM a^TICNSt OE30G,«I'I TIN?-l^ fECCNOS PA6tS*9 



STMfC^I ALCOl W (i6JAN72l CON^IUTlUN OlMMiftTiCS 

^ FMO) 1(17 NEAt COOPOINATE CW) - MFNINC: SEQ F1C19 CONTAINS fRASM 
£i^ >9C:«14 SECONDS IN CONFILATION, l'-4»52«« 01UAI tVTES OF COOE CCNMATiO 



t« JANUAtV 1972 a tit 94 



FACE 



SaogpGLe Coopzter Output 



«> TRACING («AIN 

^^002 I, 

00C3 _ 

000* ^^ 
INPUT RFCORO: "1 



0005 

0006 
COOT 
0008 
0C09 
0010 

0C06 
0007 

ocoe 

0009 
OOIC 

0006 



): 



® 



I WHILE TRUE 00 

♦ « TRUE; 
,- I SUH :» COUNT :» 

COUNT :* 0: SUH :s 0; 
.-'I REAOONtNUHBI 



3 - 



NUMB :* l; 
— i WRITEONCNUMBi 

NUNB * i: 

•-I WHILE NUMB -^ -1 DO 

NUNB « l; * * TRUE: 
1» — I SUN :« SUM *■ NUMB 

SUN « O; NUMB * l; SJM :« I: 
1.— I COUNT :» COUNT ♦ I 

COUNT » 0; COUNT :« I; 
l.— l READ0N(NUMB1 

NUMB i« 2; 
I.— t HRITEON(NUMB} 

NUMB « 2; 
2 
I (WHILE NUMB -« -I) 

NUMB * 2; * « TRUE: 
2.— I SUM :« SUM ♦ NUMB 

SUM « 1: NUMB « 2: SUM :> 3: 
2.— I COUNT :» COUNT ♦ I 

COUNT » I: COUNT :» 2: 
2.— I REAOONINUNBI 

NUMB :« 3: 
2.--) W«(ITEON(NUMBI 

NUMB < 3: 

3 
I 



29. 



(WHILE 
NUMB ' 



NUMB -.« -11 
3: * » TRUE: 



s> TRACING (MAIN): 
OOIl 1.- 



0011 
COUNT 



0013 
3002 
0003 



® 



1.— 



-I 
I 

SUM 
— I 



-1 



IF COUNT « THEN 
COUNT « 3: ♦ « FALSE: 
WRITE ("COUNT *, COUNT t "SUM ", SUM, "AVERAGE ". SUM/COUNT) 

COUNT » 3i 
SUM « 6: 



AVERAGE 
SUM » 6: COUNT » 3: 

I0C0NTR0L(2I 



2.00000000000000 



0004 2. 

INPUT RECORD: "^T 32 



(WHILE TRUE) 
* = TRUE; 

— I SUH :« COUNT 
COUNT ,:= 0; 

— I REAOON(NUMB) 
24 86 1 2 -1 

NUNB t- 57t 



!« 
SUM 



o; 



30. 



Jbcecution Output for the Precediue Pro(irtta 



0005 
0006 



57 



2.— I 
2.— I 



«> TRACING (MAIN): 

0011 



0011 
COUNT 



0013 
0002 

COUNT 




-1 



2.— I 
2.— I 

7 

SUN 

2.— I 
J 

2 SUM 



WlllTEON(NUNB) 
NUMB « 57; 



WHILE NUNB -," -I 00 
NUNB -57; * « TRUE; 



32 



24 



ftS 



-1 



IF COUNT - THEN 
COUNT » 7; ♦ « FALSE; 
WRITE l"COUNT ", COUNT, "SUN ", SUM, "AVERAGE ", SUN/COUNT) 

COUNT « 7; 



SUN - 204; 
204 

AVERAGE 
SUN • 204; COUNT • 7} 

I0C0NTR0L(2I 



29.1426571428571 



f WHILE TRUE} 
* ■ TRUE! .. 



•> TRACING (NAINM 
OOll I.— I 

ENFTV GROUP 



-I 

AVERAGE 



WRITE l"ENPTY GROUP"! 



® 



COUNT 
RUN ERROR 



4 SUN 



22 AVERAGE 



5.50000000000000 



-I 



NEAR COORDINATE 0004, IN tNAINI - READER EOF 



000.15 SECCMOS IN EXECUTION 



Ex6eiitian Output cantinaed 



^EXECUT 



3000 
0001 
0002 
0002 

ERROR 

0004 



w 



FLOW SUMMAf 



0005 
0006 
0006 
0010 
0011 
0011 
0012 
0013 
0013 
0013 



I.— I BEGIN 

i INTEGER SUN. COUNT. NUMB: 

I MHILE TRUE 00 
6.— I BEGIN SUM i« COUNT :« 0; 



ERROR 



READONfNUHBI; 



COUNT :- COUNT ♦ 1; REAOONINUNBl ; WRITFONf NUMBI 



I WRITEON(NUMB); 

i WHILE NUNB -^ -1 (Ml 
16.— I BEGIN SUN :* SUN ♦ NUNB; 
I END; 

5.— I IF COUNT » THEN 

I,— I WRITE ("EHPTV GRCUf»"} ELSE 

4,-1 WRITE ("COUNT ■, COUNTt "SUN "♦ SUM. "AVERAGE ". SUN/COUNTI; 

5.— I I0C0NTR0L(2) 

i END 
--I 



END 



@«> TRACE OF ACTIVE SE6NENTS 
«> SEGNENT NAME: (MAIN) 



VALUES OF LOCAL VARIABLES: 
SUM • 



coimT 



NUM& « -1 



FBeado-listing and BrntHBoartoK Boiv 







I 






2 


COUNT 




5t 


3 


SUN 


32 


COUNT 







7 


SUM 





COUNT 




-1 


2 


SUM 




PNPTY 


GPOUP 


4 






5 


COUNT 






4 


SUN 





6 AVERAGE 
2* 
204 AVERAGE 
-I 
C AVERAGE 



22 AVERAGE 



-I 
2. OOOOOCO 0000000 

88 
29.1428571428571 



5.50000000000000 



RUN EPRCR NEAR COORDINATE 00&4* IN (NAIN) 
000.03 SECONDS IN EXECUTION 



- READER EOF 



-1 



-I 



*> TRACE OF ACTIVE SEGMENTS 

>> SEGMENT NAME: (MAIN! 

VALUES OF LOCAL VARIABLES* 
SUM « 



COUNT 



NUMB « -1 



Ootpat of tbe ftecediog Rrogtwi vlth no Tneing (IbEEUG,!) 



h, COMPILER OUTTOT 



k.2. Details of the Tracing Output 

The tracing features of ALGOL W allow the programmer to watch the 
statement -by- statement execution of his program. The tracing output 
consists of four kinds of information for each statement: 

a) The coordinate of the statement . \2J 

h) The number of times that statement has been executed. (3J 

c) The source statement itself. \k) 

d) A description of the values used in the statement. Q^J 
There are special notations for procedure calls, for iterations and for 
showing data cards . 

i^- . 2 . 1 . Basic Notations 

For each value fetched during the execution of a statement, the 
fetch and store trace ($DEBUGA) prints VAHIABLE NAME = VALUE (s). 
The store trace only ($DEBUG, 3) suppresses all of these fetch values. 
For each value stored (assigned), the tracing prints 

VARIABLE NAME := VALUE (t) . For each logical expression in an IF or 
WHILE statement the value of the expression is printed as -^ = TRUE Qlo) 
or ^ = FALSE (ll) . If tracing is suspended because the next statement 
has already been executed m times (cf . Compiler Options for details of 
$DEBUG,n(m) ) or because the TRACE function is used, then three dots are 
printed (ij (23) . The second and subsequent times through a WHILE or 
FOR loop are indicated by the WHILE or FOR statement in parentheses Qq) ^9) 
Whenever a new card is needed by READ or READON, the complete card image 
is printed as INPUT RECORD: " 80 characters " (12) . Note that in general 
string values are printed with quotes on each end, but any quotes within 
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COfrPILER OUTHJT 



the string are not doubled. Reference values are printed as 

Recordclass . # , where ^ is a unique number (in order of allocation) . 



i^.2.2. Procedure Call Notations 



Indicates a call to procedure Xyz ^13 

Indicates that a new procedure is being 
traced (±W) . 



- XYZ; 

=* TRACING XYZ; 

(PARAMETER ASSIGNMENT) A dummy statement indicating whatever 

calculations must be performed in binding 
the actual parameters to the formal 
parameters (15) • 

< (PARAMETER IN xxx AT yyyy: trace)) 

If the actual parameter is an expression, then 
this notation gives the name of the calling 
routine, the coordinate of the call, and a 
trace of the expression evaluation h.b) (21) . 
Note that in the first example given, the 
expression MAKELONG(l) is actually another 
procedure call, whose tracing terminates about 
25 lines later. There is a second example \^y 
on the next page. 



FPARM :- APARM 



FPARM' 



value 



Indicates the correspondence between the formal 
parameter and the actual parameter (yh . 

In the case of VALUE and VALUE RESULT 
parameters, this indicates the value assigned 
to the local copy of the formal parameter (18) . 
The local copy is then used inside the 
procedure (19) . 



Used as the name of an expression which 
otherwise has no name 122] 
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h. COMPILER OUTPUT 



XYZ(..) = value Indicates the value returned from a function 

procedure (20) (2^ . This notation is 
preceded by a blank line to indicate a 
return to tracing the calling procedure. 
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«> IRACiNG 


(••AINI: 








cool 


I.— 1 




TRACEIO) 


© 


• 23 


15 345 


3 4 5 




* 12 


49 


61 


6 1 




*5 


23 


22 


2 2 




45 


29 


16 


1 6 




45 


72 


28 


— 2 8 




/ 55 


11 


5 







O TR/U:il«G 


LCNGOIV 


: 






0245 


l.-r 


1 


RM : = 


COPYINI 








-> copy; 



«> TRACING copy: 
C08C 1,— 

©ccei ® 1.— 

008i 1,— 

C083 1.— 

C084 1 



® 



® 



0C85 

coa3 

0C84 

GC85 
C083 
C087 
0088 

0^46 



-> TRACING ZED 
C077 



0247 
C248 
0249 
029O 



<P*RArETER ASSIGNNENT> 
^^ IH i- N*i N» - Rr(OOE.32: IN* 
QyP := IN 
/T\ IN* = KNOOE.32; P :« RNOOE.32; 



RHODE. 32; 



Q :- NULL 

Q := mttl 
WHILE P -» KULL 00 

P « RNOOE.32: • > TRUE: 

— I C :« RNCDEIQ, VAL(P)) ' 

C = NULL: LINK(RNat>E.36» :» NULL; P 
VAL(RN00E.36I := 5; Q :> RNO0E.36; 

— I P :a LINKtPI 

P ' RNaOE.32: LINK(RNODE.32) « RNObE.33: 
(MHILE P -' NULL} 
P » RN0DE.33: * * TRUE; 

— I Q s» RNOOEIQ, VALtPII 

Q = RNQ0E.36; LINK( RNODE.37) :» RN0DE.36: P • RNODCS); VAHRN00E.33I 
VAL(RNOOE.371 :« 5; Q :» RNODE.37; 

— I P :« LIKKIP} 

P « RN00E.33: LINKIRNODE.33) « NJLL: 
(WHILE P -.- KULL) ^^ 

P * NULL; • « FALSE; (lo) 
REVERSEIQI >-' 

-> REVERSE; 
Q 

Q - RN00E.3*; 



RNOOE.32; VAL( RNOOE.32) » 5; 

® 

P t» RNQ0E.33t 



i» :• NULLI 



5; 



COPY!.. I s RN0DE.36; 
Q i* ZERO 

-> zero; 



RN 



RNO0E.36; 



RNODEtNULLt 0) 
LINK(RNJDE.381 := NULL; VALCRNOOE,38» :« 0; 

ZERO « RNaDE.38: Q :« RNO0E.38; 
LN :s LEMiTH(NI 

-> LENGTH; LENGTH!..) » 2; LN := 2; 
LO :« LENGTHIO) 
-> length; LENGTH!..) « 2; LO :« 2; 
IF LN < LO THEN 
LN » 2; LO « 2; ♦ » FALSE; fii^ 
REVERSEIRN) ^^-^ 

-> REVERSE; 



Tracing Output (^nSBUG,U(2)) 



-> TRACING 


(MAINl: 




cool 


I.— 1 


INTFIELOSIZE := 3 


0328 


1.— 1 


aiGM :» 10 
BIGH :« 10; 


0329 


I.— 1 


HALFM :» 5 
HALF** :» 5; 


0330 


I.— 1 


WHILE TRUE 00 
• « TKUEJ 


0331 


1.— 


REAOCNU, J) 



INPUT RECORD: *9<> 999 



0332 



l.~ 



® 



«> TRACING LCKGHPY 
Ci9* I.— 



> TRACING NAKEiCNG: 
I.— I 



001<» 
C016 
flOlT 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0019 
0026 



1.— 

1.— 

I.— 

1. — 

1 

1 

1 

1 

1 

1.— 



© 



^ 
^ 



> TRACING MAKELONG: 
2.-- 1 



€014 
0016 
0017 
0018 
0019 
0020 



2. — 
2. — 
2.— 
2. — 
2 



— I 



I J« 99; J :» 999; 

R :' LONGfPY(MAKELONG(Ilt NAKELONG(jn 
-> LONGHPy; 



<PARAMETER ASSIGNM£NT> 
« PARAMETER IN (MAIN) AT 0332: 



>> iAKELONG; 



<PARANETER ASSIGNHENT> U^ 

INT :- I; I - 99; INT* :» 99; 
ANSMER :« RNODEiNULL* INT REM BIGN) 
LINK(RNOOE.l) :« NULL; INT* * 99; 
R2 :> ANSWER 
ANSWER = RNOD£.l; R2 :* RNODE.l; 
INT2 :« INT DIV BIGM 

1NT« * 99; 81GM = 10; INT2 :» 9; 
WHILE INT2 -.« 00 
INT2 » 9; * » TRUE; 

R :« RNOOEINULLt INT2 REN SIGN) 
LINK(RNUDE.2) := NULL; INT2 « 
ASSERT LINK<R2) » NULL 

R2 = RNUOE.l; LINK(RNOOE.l) « 
LINK<R21 :« R 

R2 > RNUOE.l; R > RN0OE.2; 
R2 :» R 

R ' RN0DE.2; R2 :== RN00E.2; 
INT2 := INT2 OIV BIGH 
INT2 = 9; SIGN = 10; INT2 
(WHILE INT2 -^ 0) 

INT2 « 0; * « FALSE; 
ANSWER 
ANSWER = RNOOE.l: 

MAKELONG(..» = RNOOE.l; » >S/ 

Nl :- #; i = RNUOE.l; Nl» »» RNODE.l; 

« PARAMETER IN (MAINl AT 0332: -> MAKELOMC; 



BIGM « 10; VALIRNOOE.ll t- 9: ANSMEft » RMOOE.l; 



* 13; VAL(RNO0E.2l :> 9; R :« RN00E.2; 



= 9; BIGM 

« null; 

LINK(RNOOE.l) :« RN0DE.2; 



o; 



<PARAMETER ASSIGNMENT> 

INT :- J; J = 999; INT« := 999; 
ANSWER :^ RNUDECNULLt INT REM BIGM) 

L1NK(RN0DE.3) :» NULL; iNT* = 999; 
R2 := ANSWER 

ANSWER = RNUDE.3; R2 := RN0DE.3; 
INT2 :» INT UIV BIGM 

1NT« = 999; BIG-^ = 10; INT2 :» 99; 
WHILE INT2 r.* DO 

INT2 » 99; • = TRUE; 

R :« RNUOEtNULL. INT2 REM BIGM) 



BIGM " 10; VAL(RN00E.31 :« 9; ANSWER :» RN00E.3; 



Tracing Output continued 



0C21 
OC22 
0023 
OOZ'* 
C019 



— I 

— I 

— I 
-I 



LINKCRNOOE.^I := NULL; INT2 « 99; BIGM ^ 
fiSSERT LINK(R2) = *JLL 

P2 = RNOnF.3; LINKJRN00E.3I ' NULL: 
LINK(R2) := « 

R2 » RNaOE.3: R « RNODE.<^: L INK( RNQ0E.3) 
R2 := R 

R = R.^UOE.A; R2 :* RN00E.4; 
I'iJZ := INT2 OIV Bl^>i 

INT2 * 99; BIGrt « 10; INT2 : 
IMHILE INT2 -» 0) 
INT2 « 9; • « TRUE; 



10; VAL(RW10E.4} :« 9; R :» RN30E.4; 



RMODE.^t 



9; 



.. @ 



»> TRACING MAKELONG: 
0026 2,— \ 



ANSMER 
ANSMER 



RN00E.3: 



l.~l 
1.— I 
l.— l 
1.— J 
l.— l 
l.— l 
1. 



0197 
€198 
0199 
C200 
0201 
0202 
0202 
0203 
0207 
0208 
0209 
0210 
0211 



«> TRACING HIGH: 
0075 I." 



C075 l.— l 



— I 



MAKELONGC.) > RN00E.3; » 
N2 :> i; f « RN00E.3; N2' :« RNU0E.3; 
P :« Nl 

Nl* « RNOOE.l; P :» RNf3DE.I: 
Q s* N2 

N2' * RN00E.3; Q t' RN00E.3: 
R :> RNOO£fNULLt 0) 

LINKIRNinE.61 t« NULL; VALCRN00E.6I :> 04 R s« UNOOE.St 
ANSWER :* R 

R = RN00E.6; ANSWER :< RNGDE.6: 
RIGHTPARTIAL :» R 

R > RNO0E.6; RIGHTPARTIAL :> RN00E.6; 
IF ({VAL(PI ' or AND ILiNK(P) - NULDt OR UVALiai • 01 AND fLINKCQI • WILLII 
P s RNdOE.lj VAL(RNOOE.l) * 9; Q « RN0DE.3; VAL(RN00E.3> « 9; • • FALSEl 
WHILE P -•« NULL 00 
P « RNOOE.l; * * TRUE; 

IF RIGHTPARTLAL « NULL THEN 
RIGHTPARTIAL - RHODE. 6; * - FALSE; 
R :* RIGHTPARTIAL 

RIGHTPARTIAL « IIN00E.6; R :« RN00E.6: 
C :» 

C :« O; 
Q :=» N2 

N2' - RN00E.3; :» RN00E.3; 
WHILE Q -* NULL 00 
Q « RHODE. 3: * * TRUE; 
— I A :» HIGH(VAL(P)*VAL(Qn 

-> high; 



TNEM 



0212 



«> TRACING LOm: 
0073 1. 



<PARAMETER ASSIGNNENT> 

®« PARAMETER IN LONGMPY AT 0211: P 
VAL<RN00E.3) =9; » 
NUMB :- #; # « 81: NUMB' := 81; 
NUMB DIV BIGM 
NUMB' » 81; SIGM » 10; 

(25) HIGHC.I « 8; A !x 8: 
l.— l ^^ B := LOW(VAL(PI»VAL(yj) 
-> LUW; 



RNOOE.l: VALIRNME.l) « 9; Q » RmOE.3; 



<PARAHETER ASSIGNMENT> 
<< PARAMETER IN LONGMPY AT 0212 



P > RHODE. l; VAL (RNOOE.l) 

Tracing Output continued 



* 9; Q - RN00E.3; 



h, COMPILER OUTHJT 



h.^. Details of the Post-moirbem Dump 

The post-mortem dump begins with =* TRACE OF ACTIVE SEGMENTS (T) , 
then the complete call chain is printed starting with the procedure which 
was active at the point of termination and working back to its caller, 
etc. For each procedure, the following information is printed: 

a) The name of the procedure Qy.. The outermost procedure is 
called "(MAIN)" and a simple BEGIN block is named "(BLOCK)" . 

b) The names and values of the local variables in the procedure (5)« 
Uninitialized values print as "?" (jj* Local copies of 
parameters are named with primesQ6^. Strings are printed with 
a single quote added on each end, but quotes within the string 
are not doubled. At most eight values are printed from an array, 
usually the first seven and last one Q8} (o)* Reference values 
are printed as Recordclass . # , where # is a unique number 
(in order of allocation) . The control variables in FOR statements 
are all distinct even if they are spelled the same way. So if 

I is used in many FOR statements, it will be dumped many times (ll) 

c) The name of the calling routine and the coordinate of the call (lo) 
For NAME parameters, a procedure may be re-entered (environment 
re-established) to evaluate the corresponding argument (2) (5) • 
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C292 
0296 

0297 
C298 
0298 
029U 
0298 
0298 



18. — I BEGIM I^im := I; Mil) :« l/(2*NNi; B<0, II : = 

I END; 

I LINPROGINU ♦ 1, 2*NN, NU ♦ I, B, ^6, C, W, Z, IN, ckR); 

I IP ERP -« THEN 

C — i MPITEI"Ea«<0» NO. ", ERR» cLSE 

0.— I FOR 1 :» C STEP I UNTIL 2*N - 1 DO 

0.— I WFITEf^lNOEX ", INII), " VALUE ", «( III 

1 END 



UOi 



(^ «> TRACE OF ACTIVE SECHENTS 

>> SEGMENT NAME: AB 
(a) AB HAS REENTERED FROM GMAT, NEAR COORDINATE 0072, TO ACCESS A PARAMETER 

«> SEGMENT NAME: GMAT 

VALUES OF LOCAL VARIABLES: 

RI» ■ 7 CI* » ? 

GMAT MAS ACTIVATED FROM AB, NEAR COORDINATE 0242 

«> SEGMENT NAN€: AB 

Q) AB hAS REENTERED FROM TRISOLV, NEAR COORDINATE 0033, TO ACCESS A PARAMETER 

«> SEGMENT NAME: TRISOLV 



® 



VALUES OF LOCAL VARIABLES: 

FIO» » 1 FIE* ■ -I 

ChERTY - 7 I = ? 

TRISOLV WAS ACTIVATED FROM DECOMPOSE, NEAR COORDINATE 0081 

«> SEGMENT flANEt DECOMPOSE 

VALUES OF LOCAL VARIABLES: 

BCTTOM* « D TOP* « 

J « 7 
DECCNWSE WAS ACTIVATED FROM AB, NEAR COORDINATE 0242 

•> SE6NENT NAME: AB 



(?) VALUES OF LOCAL VARIABLES: 

^^ 01 » 7 02 » 7 

AB MAS ACTIVATED FROM LINPROG, NEAR COORDINATE 0249 

*> SEGMENT NAME: LINPROG 



©VALUES OF LOCAL VARIABLES: 

».. . 8 

Q(OI * 7 Co 

Q(4} = 7 ^-^ 

HIO» « 7 

>-(4» X 7 

moi = 7 

>i(4» = ? 

Y(0» « 7 

Y(4I » 7 

Vf0» * ? 



'4* = 18 
Qd) ' 7 
J<5) = 7 
H»l) * 7 
H(5» = 7 
4(1) = 7 
W<5) = 7 
r(l» =7 
V(5» = ? 
V(l) = ? 



TT = 7 



I « C 



Q(2) = 7 

g(6> = ? 

H(2J « 7 

HC) = ? 

H<2) = 7 

*«(6> « ? 

Y(2) = 7 

Y(6) = 7 

V(2) = 7 



® 



PV 



J ■ 7 



QI3I » 7 

Q{8) = 7 

MC3» « 7 

M<8» * 7 

WI3I » 7 

W<8) « 7 

VI3) - 7 

Y(8I « 7 

V(3) » 7 



Post-mortem Dur^ 



v<«»l « 


? 


0(0,01 


» 7 


PC.O) 


> ? 


U(C» » 





l)«(4l » 


4 


P0(0» » 





OCC^J X 


4 


^U « 7 




GAMHA « 


7 


J » 17 




T2 . 7 





V(5» = ? 


Pll,0) - ? 


i>l5,C» » 7 


IXIH = 1 


IX(5) - 5 


ROdI « 1 


R0(5) « 5 


"4'J « 17 


'-.Ml » ? 


K « ? 


INFINITY » 



» 7.237005'*75 

riD)LlNPROG WAS ACTIVATED fROM (MAI'H, NEAR COORDINATE 0297 



V(«>) = ? 
f>i2,0) = 7 
PtS.O) = ? 
IXJ2) " 2 
IX<6> « 6 
R0I2I » 2 

pn(6i * 6 

«L»HA X ? 

Ill =« -I 

L - 

PREVi » -7.237005»»75 



© 



• • • 


VtSI » ? 




PI3,0I « ? 


• • • 


PIS.SI < ? 




IXO) * 3 


• •• 


IXI26I « 7 




ftO(3) - 3 


• • • 


H0I8I * 6 




BETA . 




I « 7 




Tl » ? 




ETA « 9.536743* -07 



=> SEGMENT NAHE: (HAINI 



•values op local VARIABLES: 




r.N » 9 


N X 3 


J « ? 


S X 4 


BB(0> » 1.000000 


BBJll X 


Be(4» » 


eB(5) » 


W(OI = 0.05555555 


W(l» X C. 05555555 


W(4l = 0,05555555 


V«(5) X 0.05555555 


CfO» - 


C(l) « 


CI4) « 0.0009765625 


C(5) X -0.000976562 


PSIIOI » 


PSKl) ' 0.1250000 


PSI(4) = O.SCOOOOO 


PSI(5) = 0.6250000 


?(0,0» = I. 000000 


B(l,0» = 0.6666679 


B(4tOI ' 


8(5,0) X 


U«-3) = -0.7500000 


U(-2) = -0.5000000 


ua> « 0.2500COO 


U(2) = 0.5000000 


U(C» X 


INI n = I 


IK{4) * 4 


IN(5) » 5 


Z « 7 


I « 7 * 


I X 16 * 


J X 7 * 



NU = 7 




I - ? 


ERR = 




Ni«;i s 8 


BB<2» X c 




BB(3) X 


8B<6> X 




BB(20) « 7 


W(2I X 0.05555555 




«(3) X 0.C5555555 


WC6I X 0.C5555555 




W(20) « 7 


C(2) X 3.05I758'-05 




CI3I - -3.0«l758»-05 


CI6I X 0.007415771 




0(20) - 7 


PSI(2) X 0.2500000 




PS1(3) X 0.3750000 


PSII6) X C.7500OD0 




PSI(20) X 7 


312, 0> X 2.666665 




B(3,0) X 0.6666*65 


8(6,0) X 




B(10«20) X 7 


U(-l) = -0.2500000 




U(0) X 


U(3) = 0.7530000 




UCIO) X 7 


IN(2) « 2 




IN(3) X 3 


irj(6) X 6 




IN(20) » 7 


I * -3 * 




I » 8 • _. 


I = 17 * 




I - ? (lli 



* LAST VALUE OF CONTROL IDENTIFIER PRIOR TO NORMAL EXIT 



Post-mortem Dump continued 
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GRAMMATICAL DESCRIPTION OF ALGOL W 



by 
R. Floyd 
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GRAMMATICAL DESCRIPTION 

In the grammatical description of ALGOL W on the following pa^es, 
Roman capital letters, such as A B C D, stand for themselves. A script 
letter, possibly accented, standi Tor a defined infinite class of symbol 
strings; for example, ci< , as defined, stands for the class which includes 
the symbols A, B, C, ..., Z, AA, AB, . . . ,A9, BA, . . . ,B9, • . .Z9, AAA, ..., 
Z995 AAAA, ... . A Greek letter, such as X , stands for a given finite 
set of characters. 

The symbol | means "or"; if Q is defined as -©IC', this means that 
a particular inscription is an Q if it is a /© or if it is a C . 

The notation Q , or equivalently fO] , means any number (including 
zero) of inscriptions, one after another, each of which is an . For 
example, {aJb} means A or B or AA or AB or BA or BB or AAA 
or ..., or A , where A means no inscription at all. 

The notation 0. means any number (but at least one) of inscriptions, 
one after another, each of which is an G . It abbreviates GO . For 
example, [aJb] means A or B or AA or ... or BB or AAA , etc. 

The notation [Q] means an optional occurrence of ; it abbreviates 

ra|A]. 

The notation Q 3 means Q or 06(1 or 0B0/3Q> , etc; it abbreviates 

The notation G J^ /9 means and/or /9 ; it abbreviates G|/9|G9 . 

The curly brackets [ } are used simply as parentheses to show the 
scope of the above operators. 

All other characters, such as /-,()/< etc., stand for themselves, 
including * and + when they are not raised. 
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The Grammar of a Simple Subset of ALGOL W 



o 



Descriptive 
Name 

letter 

digit 

identifier 

symbol 

constant 

function value 

expression 

simple statement 

statement 

block 

declaration 

type 

procedure heading 

program 



Symbol 
\ 
6 

cS 

a 
C 

e 

S' 

s 

6 
£ 
T 
U 
P 



Definition 

A|Blc|D|El...lxlylz 

oll|2|3|...|8|9 

Any symbol on the keypunch, except the double quote 



[-] [^lc|^l(e)}^{*|/} {+1-} {<|<=|=|>=|>|-.=3 

^:=eK(e^)]|GO TO c9 \b 

s' |iF e THEN s|ir e then s' else sjfor c9:=£ until e do s 

BEGIN [*;}*[S;|c9: }*S END 

T cJl ,|T PROCEDUEEV;[e|BEGIN(f»;}*[S;M:}*£ END] 

INTEGER I REAL I logical I STRING(C) 
^ I 

«»(tIvalue|prOcedure}«> , ; ) 

B, 



H 

o 



M 

a 



The Graramar of ALGOL V7 



P 






Descriptive 

Name Symbol 

letter \ 

digit 5 

identifier <^ 

variable V 

symbol a 

constant C 

function value ^ 

simple expression &" 

simple expression &' 
or relation 

expression & 

argument Q 

simple statement S' 

empty A 

statement S 



Definition 



M 

o 



a|b!c|d|e] •••IxiY'lz 

o|li2|3!*-*i8|9 

xix!6l_f 
[^M(e)|^(er)][(e|c)] 

Any character on the keypunch, except the double quote. 

[[§''[. s^'ll.s''] A l*[+l-] 5'']}[i][L] ItrueIfalse 

|# i6|A|B|c!DiE|Fri"!:a|""}'^"|TmL 
[+|-][-']iABS|LONG|SHORT] [v|c|^|(e) } [^|SHL|SHR}i;^|/|DI\'| REM| AND}i;+ | - | OR} 

e"|e"[<|<=|=|>=|>h=]e"|e" isc5 



w 

en 
o 

H 



e' (IF e THEN e else &|case e of (e*7) 



eisi ^[([e|*},)] 

fV:=r&|GO TO S\S[(a^)]\A\B 

The empty statement; no character at all, or a space. 

S' |IF e THEN S|IF e THEN S' ELSE S|CASE £ OF BEGIN S^ END 

I WHILE e DO s|for <^:=t {[STEP e] UNTIL eK,e}*]D0 S 



Descriptive 

block 
declaration 

ty-pe 

procedure heading 

program 



Symbol Definition 



B 



T 



BEGIK (^;]* [S;|c9:] S EKD 

T P~,\1 ARMY cT^ (£::&',) I PROCEDURE V ; S 



|T PROCEDURES; [&|bEGIN [^ ;] [S;|c9:]*e END}|rECORD c5(T J^ ;) 
INTEGER I [LONG] [peal | COf^LEX] | LOGICAL | BITS [ (32) ] | STRING[ (c) ] i REFERENCE ( «5, ) 
c9[([T [VALUE] [RESULT] I [T] PROCEDURE] ^|T ARRAY ^',(*^);)] 

{sl^][.] 



H 

ro 



> 

1-3 
M 
O 



o 

M 

H 

o 






The Operators and Functions pi' ALGOL W, Their Formats, Meanings q 

and Type Constraints s 



Use of Symbols 



1^ 

H 

o 



&. = any ALGOL W expression. w 

a. = value of expression &.. m 

11 ^ 



3 



K. = kind of data represented by oi , corresponding to e>fpression &., o 

The kinds of data arei 

1. N = nianeric 

2. L = logical 

3. S = string 
^4-. B = bits 

5 . R = reference 

d. = domain of a. when k, = N. 
1 11 

The domains are: 

1. I = integer 

2. R = real 

5- C = complex 

They are ordered as follows : I c IKI C . 

p. = precision of of. when k. = N. 

They are ordered as follows: S < L. 

If d. = I, then p - L. I.e., integers are converted to long real. 



H 



Format 



V^2 



e^ Div e^ 

^1 ^ ^2 



ABS t^ 

LONG e^ 
SHORT e. 



Kinds of ^jrguments Domains of Numeric 
Meaning and Results Arguments and Results 



Free is ion of Nuiaeric 
Arguments and Results 



a^ + ag 



^1 -^2 



^1 /^2 



ri. 



a. 



a 



1 
"^1 

TRUNCATE(a /a ) 

a^- (a^ DIV ttg)* a^, 
the remainder of 

01^ 



0?, 



N + N -^ N 
N - N -> N 
N ^ N -» M 
N/N -> N 

N**N -^ N 
+N -^ N 
-N -^ N 

I DIV I -♦ I 
I REM I -* I 



d^+d^ -> raax(d^,d2) 
d^-dg -4 maxCd^jdg) 
d^^dg -* maxCdpdg) 
cL-^/dg -^ max(d^,d2,R) 



d^**I -^max(d^,R) 
+d^ - \ 



ABS N -^ N ABS d -^ min(d ,R) 

LONG N -^ N LONG d^ -^ max(d ,R) 



SHORT N -^ N 



SHORT d. 



p^-Pg -^ minCp^jP^) 



P3_"^2 "^ ^ 



Pj^/Pg ->min(p^,P2) 



p^*-*^L -» p^ 

^\ - Pi 
-^1 "^1 



ABS p^ -* p^ 

3_ -* L where p, =s or d^ =1 
1 1 1 

p^ -* S where p. =L and d 4= 



LONG p. 
SHORT 



;2 



Q 



o 



r^ 



c 



Fonnat 



Meaning 



Kinds of Arguments 
and Resiilts 



Domains of numeric Precision of rJumeric Q 
Argiiments and Results Arguments and Results s 



e^ OR e^ 



01^ V a^ 



L OR L -^ L 
B OR B -^ B 



1^ 

M 
O 



e^ AM) t^ 






^1=^2 



e, <= e^ 



0^1 A a^ 



NOT a. 






^1<^2 



Q'l 1«2 



L AM) L -> L 

B AM) B -» B 

— 1 L — > L 

-1 B -4 B 



k = kp -» L(where k^ =k ) 
k^ — 1= k -> L( where k =kp) 



N < N -> L 
S < S -^ L 

N <= N -> L 
S <= S -» L 



any 
any 



d^^dg - ^ 



any 
any 
any 

any 



« 

w 



M 

s 



^1>=^2 



^1>^2 



N >= N ~> L 
N >= S -* L 



^^d^C R 



any 



h>^2 



"l>"2 



H > N -» L 
S > S ^ L 



V^2 ^ " 



any 



6_ IS S Of, belongs to the 

record class «5^ 



R IS ^ -» L 



e^ SHL e^ 



e^ SHR ^2 



a shifted left 
a^ places 

a_ shifted right 
a places 



throiigh 

Qfp + Of-, - 1 of Of, 



B SHL N -> B 



B SHR N -> B 



^1^^2'S^ characters a^ S(n1n) -» S 



d2 = l 



^2 = 1 



a, = d, = I 



Format 



Meaning 



Kinds of Arguments 
and Results 



Domains of Numeric 
Arguments and Results 



Precision of Numeric 
Arguments and Results 



IF e^ THEN t^ ELSE e, 

L d 



if a then a , 
othervrise a. 



IF L THEN k ELSE 1^ -^ k 



where 



^=S = 



= k 



IF L THEN d ELSE d 



max 



^^I'V 



IF L THEN p ELSE p 



mm 



(Pj^^Pg) 



CASE e of (eT,...,e ) 

o 1' ' n' 



a (1 < a < n) 
a — o— ' 

o 



CASE N OF (k^,k , .. .,k ) CASE L OF (d ,d , ...,d ) 

-* k where -» maxCd^ ,d^, . . .,d ) 

12 n 

K_ — K,^^ • « • ^^ K. ^^ K. 

12 n 



CASE L OF (p^, ...,P^) 
-> min(p^, •••rPj^) 






P. 



1-3 
H 
O 



i-i 

§ 



All the following functions have the format F(&^), where F is the function name. 
We shall omit reference to the format, accordingly. 



^. 



Funct ion 



Meaning 



Kinds 



Domains 



Precision 






TRUNCATE 



ENTIER 



ROUM) 



EXPONENT 



ROIXNDTOREAL 
REALPART 
IMAGPART 
IMAG 



The integer i, with the same sign 
3 Q- , such that 

la^l - 1< Ul < la^l 

The integer i such that 
or, - 1 < i < or. 

The integer i, with the same sign 
of^, such that 

Ic^^i - 1/2 < Ul < la^l + 1/2 J 

The largest integer i such that 
i < log^^(la-Ll) + 1 
or if a^ = 



a. 



The real part of a-. 

The imaginary part of a^ 

c^-L ^ /-I 



IT ^ N 



N - N 



N -N 



N -*N 



N -N 



R ^ I 



R - I 



R -R 



C -R, 



(d^ c R) 



Any 



Any 



Any -♦ S* 
Any -f S* 



1-3 
M 

o 



CO 

o 

M 

M 
Q 



Note: An asterisk on a short precision-result means that prefixing the letters'- LONG to the fimction 
name yields a long precision result. 



Function 



Meaning 



Kinds 



Domains 



Precision 



SQRT 



a, , for Q(, > C 



N -4 N 



u,, — » n 
(d^ C R) 



Any -» S* 



^ 



H 

00 



EXP 

LN 

LOG 

SIN 

COS 

ARCTAN 

TIME 

ODD 
BITSTRING 



e , for a^ < 17^.67 



loggCo'^), for a^ > 

log^Q {oi^) , for o;^ > 

sin(a^), for |a^| < 823550 

cos(a^), for |a^| < 823550 

tan (q^,)^ in the range 
(- tt/2, Tr/2) 

elapsed time, in units of l/lOO 
minute if or^ = 0, otherwise in 

units of l/60 second. 



01 is an odd number 



The sequence of bits which 
represents a^ in binary. 

See manuals for details. 



J 



N -* N 



I -» I 

I -4 L 
I -> B 



{\ <E R) 



Any -» S* 



o 



1-3 
H 
O 



y 



o 



C 



H 



Function Meaning 

NUMBER The integer which a represents 
in binary. 

DECODE The number which is used as a code 

for the character a, . (See page 71.) 

CODE The character for which a is used 
as a code. (See pa^e 71* ) 

BASEIO A string of the form b+12+1234567 
representing a^ as a power of ten 

times a fraction, (b represents a 
blank space) . 

LONGBASEIO As above, for b+12+123^56789012545 

BASEI6 A string of the form bb+12+123456 
representing of, as a power of 

sixteen times a fraction, both in 
hexadecimal. 

LONGBASEI6 As above, for bb+12+12345678901234 

INTBASEIO A string of the form b+123i^■567890 
representing a in decimal. 

INTBASEI6 A string of the form bbbbl23i*-5678 
representing a^ in hexadecimal, 
using two's complement notation. 



Kinds 
B -^ I 

S(l) -» I 

I -.S(l) 

N -^ S(12) 



Domains 



Precision 



N -> S(20) 
N -> S(12) 



N -> S(20) 
I -» S(12) 

I -> S(12) 



d^ C R 



d^ c R 

d c R 



d^ c R 



See 



also pages 5^-59 for READ, READON, READCAED, WRITE, WRITEON, lOCONTROL. 
also pages 6k-66 for INTFIEIiDSIZE, MAXINTEGER, EPSILON, MAXREAL, PI. 



Any 



Any 
Any 



Any 



c 



Index 



Abend messages 87 

Actual parameter k6 

Arithmetic expression .... 32 
Array declaration ........ 22 

ASSERT statement U9 

Assignment compatibility . kh 

Assignment statement k^ 

Binding of identifiers ... l^i- 

Bit expression 58 

Block k2 

Boolean expression 37 

Built-in functions 60 

Call_, procedure k-^^ 31 

CASE expression 30 

CASE statement ^0 

Character encoding 7I 

C omment 10 

Compiler options lO^l- 

Conditional expression ... 30 

Constants I6 

Constants for input 5^1- 

Control cards 103:, lOU 

Control^ l/O 58 

Conversions 35^ 133 

Coordinates Ill 

C opy rule h^ 

Data types 16 

Deck setup 103 

Declaration 20 

Double precision 

representation 97 

Error messages 73 

Exceptional conditions ... 65 

Expression 28 

Field designator 28 

Floating-point 

representation 93 

FOR statement 51 

Formal parameter 2k 

Fortran linkage 107 ff 

Function declaration 23 

Function designator 31 

GOTO statement U7 

Identifier 13 

IF expression 29 

IF statement kS 

Incompatibility, assign .. hk 

Input/output ^k 

Integer representation ... 90 

lOCONTROL 38 



Iterative statements 5I 

Keywords 11 

Label U2 

Logical expression 37 

Name parameter U5 

New line 58 

New page 58 

Normalization 9^ 

Numbers 17 

Number representations .... 88 

Object decks 107ff 

Operators 11, 32, 133 

Operator precedence kl 

Options, compiler loU 

Order of evaluation Ul 

Overflow 65, 92, 99 

Page e ect 58 

Page limit 103 

Parameter k^ 

Parameters, compiler lOU 

Precedence of operators ... kl 

Predeclared identifiers ... 6-!-. 

Procedure declaration 23 

PROCEDURE statement k^ 

READ 56 

READCARD 57 

READON 56 

Record class declaration . . 28 

Reference declaration 21 

Reference expression ^0 

Reserved words 11 

Round-off error 96 

Simple variable 20 

Standard functions 60 

Standard procedures 55 

Statement k2 

String expression 39 

Subarray kj 

Substring ko 

Syntactic entities 12 

Time limit 103 

Transfer functions 60 

Types of variables 16 

Underflow 65, 99 

Variables 16 

WHILE statement 53 

WRITE 57 

WRITEON 57 



li^O 



Words with special meanings in ALGOL W 



ABS 55 

iALGOL 105 

ALGOL 25 

/iND 58, 59 

ARCTAN 6h 

ARRAY 22 

ASSERT U9 

BASEIO 62 

BASEI6 62 

BEGIN i+2 

BITS 20 

BITSTRING ..... 61 

CASE ... 50 

CODE 61 

COlvtt^EET 10 

COMPLEX 20 

COS 65 

Sdebqg 10J+ 

DECODE 61 

DIV 5^ 

DIVZERO 65 

DO 52 

$DUMP^ 10i^- 

ELSE ^8 

EKD h2 

^mum. 60 

foEOF 105 

EPSILON 65 

EXCEPTION 65 

EXP 65 

EXPERR 65 

EXPONENT 60 

FALSE 18 

FOR 52 

FORTRAN 25 

GO ^7 

GOTO HT 

IF hQ 

IMAG 61 

IMAGPART 60 

INTBASEIO 62 

INTBASEI6 62 

nriDIVZERO .... 65 

INTEGER 20 

INTFIELDSIZE .. 6h 

INTOVFL 65 

lOCONTROL 58 

IS 58 

$LIST 10i^- 



m 65 

LNLOGERR 65 

LOG . .. 65 

LOGICAL 20 

LONG 56 , 

MARGIN= 105.2 

MAXINTEGER 6k 

MAKHEAL 65 

$NOCHECK lOi^ 

$NOLIST 10^ 

NULL 20 

NUMBER 61 

foOBJECT 108 

ODD 61 

OF 50 

OR 58, 59 

0\'FL 65 

PAGES= 105.1 

PI 65 

PROCEDURE .25; ^7 

REAL 20 

REALPART 60 

RECORD 28 

READ 56 

READCARD 57 

READON 56 

REFERENCE 21 

REM 55 

RESULT 2k, KG 

ROUND 60 

ROUNDTOREAL ... 60 

SHL 59 

SHORT 56 

SHR 59 

SIN 65 

SINCOSERR 65 

SIZE= 105.2 

SQRT 62 

SQRTERR 65 

$STACK 10^1 

STEP 52 

STRING 21 

$SYNTAX 10^ 

THEN ^8 

$TITLE IOI+ 

TIME 6k 

TIME= 105.1 

TO k^ 

TRACE 59 



TROTCATE 60 

TRUE 18 

UFL 65 

UNTIL 52 

VALUE 2k, k6 

WHILE 55 

WRITE 57 

WRITEON 57 

XCPACTION 65 

XCPLIMIT 65 

XCBIARK 65 

XCPMSG .... 65 

XCHfOTED 65 



lill 



